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Des cassettes pour le 99/4A 


Plusieurs lecteurs nous ont reproché, 
à juste titre, de ne pas indiquer clai- 
rement les langages utilisés pour les 
programmes contenus dans nos cas- 
settes. Dorénavent, cela sera fait. De 
plus, à partir de ce numéro, les pro- 
grammes seront tous en français. Les 
cassettes A,B et C sont toujours dis- 
ponibles et nous proposons mainte- 
nant la cassette D. 


Cassette 99A 
Basic TI : 


e Electronique 
e Mineur 


Basic Etendu : 
e Prêt 


Cassette 99B 
Basic TI : 


e Yathzee 
e Division 
Basic Etendu : 
e Chardef 


Cassette 99C 
Basic TI : 


e Division 
e Course 


Basic Etendu : 
e Dames 

e Nim 

e Isola 

e Schmoo 


Cassette 99D 


Cette nouvelle cassette comporte 
cinq programmes, trois en Basic TI et 
deux en Basic Etendu. 


Conjugaisons 

Ce programme, écrit en Basic 
Etendu, est capable de conjuguer 
tous les verbes du premier groupe, y 
compris les cas particuliers. C’est en 
plus un jeu éducatif puisque, sur une 
option, il vous propose de conjuguer 
vous-même les verbes qu’il choisit. 


Caractérologie 


L'ordinateur vous pose un grand 
nombre de questions auxquelles il 
vous faudra répondre de façon ob- 
jective. Ensuite, le programme vous 
indique vos qualités, vos défauts, et 
votre caractère. Il ne faut pas pren- 
dre trop au sérieux les conclusions 
de cet amusant programme écrit en 
Basic TI 


(naarme 


BON DE COMMANDE 


Je désire recevoir la cassette 
[_]99 À : Mineur, Prêt, Electronique TP 
[_]99 B : Yahtzee, Chardef, Division, Régression linéaire 

[_]99 C : Dames, Nim, Division 2, Isola, Schmoo, Robots 


[_]99 D : Conjugaisons, Caractérologie, Car driver, Poker, Cannibales 


Car driver 


Le titre est Anglais mais ce pro- 
gramme, écrit en Basic TI, est fran- 
çais. Le jeu fait appel à vos réflexes. 
Vous êtes le pilote d’un véhicule qui 
ne tourne qu’à gauche et vous devez 
détruire le plus grand nombre possi- 
ble de monstres en évitant les arbres. 


Poker 


Il est inutile de présenter ce jeu qui 
vous permettra de ’flamber” sans 
pour autant être obliger de vendre 
tous vos biens. Votre adversaire est 
l'ordinateur et le programme est écrit 
en Basic Etendu. 


Cannibales 


Vous connaissez certainement le jeu 
du loup, de la chèvre et du chou. Le 
programme est une version ‘’infor- 
matique” de ce jeu. Trois explora- 
teurs et trois cannibales se trouvent 
sur la rive d’un fleuve. Il faut leur 
faire traverser ce fleuve sans jamais 
avoir plus de cannibales que d’explo- 
rateurs sur la même rive. Ecrit en 
Basic TI. 


Ces tarifs comprennent l’envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 


Envoi par avion : + 10F 


Envoyez ce bon de commande et votre règlement à : 


Editions MEV - 49 rue Lamartine - 78000 Versailles 
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Editorial 


Nous avons tous été secoués par LA NOUVELLE, apprenant avec surprise, pour ne pas dire stupeur, 
que Texas Instruments arrêtait de fabriquer le TI-99/4A. C'est venu tellement vite que les responsables 
européens de Texas n'ont eux-mêmes été avertis que 48 heures avant les journaux ! On savait que, 
depuis quelque temps, Texas perdait de l'argent dans l'informatique individuelle, mais, comme le dit 
Contact, la revue de la FNAC (numéro de décembre), ‘le TI 99 n’a toujours pas de concurrent sur le 
marché français”. C'est toujours vrai si l’on considère le nombre de livres et de programmes écrits sur le 
sujet, ainsi que l'existence de la revue spécialisée que vous nous faites l'honneur de lire … 


Ceci dit, Texas s'engage à alimenter le parc en périphériques et logiciel pendant encore plusieurs mois, 
et à assurer la maintenance pendant plusieurs années. Pour sa part, 99 magazine a décidé de ne pas 
abandonner” tous ceux qui, comme vous, lui ont accordé leur confiance. En tout état de cause, nous 
continuons la revue. 


: Nous prions nos lecteurs de nous excuser pour les débuts un peu difficiles de la revue, dont la qualité 
n'était pas à la hauteur de ses ambitions. Nous avions placé notre confiance dans un rédacteur qui, 
comme le prouve l’erratum publié dans ce numéro, n'a pas fait preuve de toute la conscience profes- 
sionnelle à laquelle on pouvait s'attendre. Nous demandons aux lecteurs qui nous ont écrit jusqu'en 
septembre de nous pardonner si leurs lettres sont restées sans réponse : de nombreuses informations 
nous ont fait défaut après le départ de ce collaborateur. Heureusement, il a été remplacé par Jean-Luc 
Bazanegue, assisté des conseils de Gérard Santraille : vous pourrez constater le progrès de la revue 
dans ce numéro 3. 


Dans ce numéro, Gérard Santraille vous propose une introduction au Pascal et vous donne, dans la 
bibliographie, son avis sur plusieurs ouvrages. Il analyse également pour vous la cartouche Othello. 
Julien Thomas à testé le magnétophone à cassettes Texas Instruments et commente le programme 
Awari qui nous vient de nos amis du club TISOFT-HOME. Roger Didi vous propose un second article 
d'initiation au Basic. Sophie, pour sa part, continue son voyage au pays de la tortue avec son article 
sur Logo. 


Laurent Desobelle apporte sa contribution avec son programme Géographie, et Pascal Peitrequin 
développe vos capacités en calcul mental grâce au programme Calcul. Daniel Massé vous offre un 
excellent Puissance 4, tandis que Gilbert Ârribet vous présente un magnifique sapin de Noël. Jean- 
Luc Bazanegue passe en revue les modes d’adressage du micro-processeur TMS-9900, déploie toute 
sa compétence en la matière avec un Mastermind en assembleur, et indique comment installer une 
touche "RESET” sur le TI-99/4A. Marianne Sutz vous propose un programme de puzzle sur ordina- 
teur ainsi que l'essai de la cartouche Parsec. Enfin, Alexandre Duback assume la lourde tâche du 
Courrier des Lecteurs. 


Nous attendons avec impatience vos programmes originaux : envoyez-les sur cassette ou disquette. Les 
programmes publiés sont rémunérés à raison de 100 francs par page, sans compter la célébrité immé- 
diate que cela vous apporte ! Excusez-nous, mais le prix de 150 francs par page indiqué dans le nu- 
méro précédent était l’une des erreurs provoquées par les conditions aberrantes dans lesquelles nous 
avons été forcés de travailler à la sortie du numéro 2. 


Nous sommes désolés des troubles issus des grèves des PTT. Nombreux sont les abonnés qui ont reçu 
leur numéro très tard. Certains même ne l'ont pas encore reçu. Il nous est difficile d'assumer les consé- 
quences de cette grève à laquelle nous ne pouvons rien. Toutefois, en signe de bonne volonté, nous 
sommes prêts à envoyer à tout abonné le numéro (et la cassette) qu'il n'aurait pas reçu, contre un 
chèque pour 50 % du montant correspondant. 


Plus le nombre d'abonnés sera élevé, meilleur sera le service que nous pourrons vous fournir. N'oubliez 
pas qu’un abonnement d'un an à 99 magazine avec ses cassettes d'accompagnement vous offre, pour 
le prix d’une cartouche, de nombreux conseils et de multiples programmes. Abonnez-vous ! 


Hervé Thiriez 


Rédacteur en chef - Directeur de la publication : Hervé Thiriez. Comité de rédaction : Jean-Luc Bazane- 
e, Thomas Coppens, gi Didi, Gérard Santraille. Dessins : Laurent Bidot. Ont collaboré à ce numéro : 
ilbert Arribet, Jean-Luc Bazanegue, Laurent Desobelle, Roger Didi, Alexandre Duback, Daniel Massé, Gérard 

Michel, Gérard Santraille, Sophie, Marianne Sutz, Julien Thomas. 


Editions MEV - 49, rue Lamartine - 78000 Versailles. Tél. : (3) 951.24.43. 
SE cr : Force 7, Anne Jourdan, 39, rue de la Grande-aux-Belles, 75483 Paris Cedex 10. Tél. : (1) 


mi auprès des boutiques et libraires : Editions du PSI, 44-51, rue Jacquard, BP 86, 77400 Lagny-sur- 
arne. 


Composition : Télécompo, 13-15, avenue du Petit Parc, 94300 Vincennes. 
Impression : Imprimerie Rosay, 47, avenue de Paris, 94300 Vincennes. Tél. : (1) 328.18.63. 
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Calcul 


Pascal Peitrequin 


Ce programme en Basic Etendu est 
un jeu éducatif ayant pour base le 
calcul mental. Ce programme peut 
certainement aider les enfants qui ne 
sont pas spécialement attirés par les 
mathématiques et constitue un exem- 
ple concret d'utilisation du TI-99/4A, 


De nombreuses options et niveaux 
de jeu sont disponibles, et cela sans 
nuire à la facilité d’utilisation du pro- 
gramme. Des commandes sans ambi- 
guité étaient indispensables puisque 
ce programme doit pouvoir être uti- 
lisé par de jeunes enfants. 


Le nombre de joueurs peut dépasser 
25 ; il est donc possible de faire jouer 
(ou travailler ?) une classe entière. 


NDLR : Nous remercions notre lec- 
teur pour son excellent travail et en- 
courageons les autres lecteurs ayant 


et de l'informatique en général, à des 
fins pédagogiques. 


LOS REM A4 KONON NOR CEE X 

110 KEM % CALCUL x 

120 REM XXKEMKENEKMEXEXE 

130 REM *% RASIC ETENDU * 

140 FEM KKKXKKXEMEEXRENX 

15 REM #  COFYRIGHT * 

lé RE # FASCAL * 

170 REM X FEITREDUIN  %# 

1E0 REM * ET * 

190 REM * 99 MAGAZINE * 

200 REM XKXKKEKAEXEREXEXX 

210 REM MODIFICATION .EVENTUELLEX 4 #4 #3 X 
AEXEEEXEMEREREEXX 

2240 REM CHANGER LA VARIARLE "ELE" FOUR M 
ODIFIER LA VITESSE DE LA FLECHE{LIGNES 4 
5 À 40) 

230 ON WARNING NEXT 

40 CALL CLEBF 1: DIM AS$(ZO)zs 
ï55 OIM O(48B):: CALL SCREEN(I6) 
20 DISFLAY ATI9, Lis 'E COLES GE F' 
LEE 

8ë5 FOR Del TQ 0 :2: NEXT D 

270 DISFLAY AT{Ii1,1)REEF: "JEU DE CALCUL 
No 5 55/1985" 

280 GOGUE 2550 LECTURE DES DATA(NOTES) 
290 GOSUR 2510 

AO CALL SCREEN(4) 

310 INFUT NOMBRE DE JOUEURS 7 ":J 
A0 CALL SOUND (200,1, 0) 

330 CALL CLEAR 
HO PRINT TAR (En): 


DIM SC(20 


“NOMS DES JOUEURS":TAR( 
50 FOR I=i TO 9 

360 FRINT "JQUEUR No‘“:l: 

370 CALL SOUND (200,400, O) 

380 INPUT AS$(I):: PRINT :: NEXT I 

390 FOR I=i TO J :: SC(I)=0 :: NEXT I 
400 DISPLAY AT(8,4)ERASE ALL: "JEU DE CAL 
CUL No 5" 

416 DISFLAY AT(11,1): "COMMANDE FAR PRESS 
IONF O/NMIU I UGi vous repondez oui,vous 
"s'utiliserez les boutons de"“:"tir des m 


, 680 CALL CLEAR :: 


écrit des programmes intéressants à 
nous les faire parvenir. 


anettes ou bien leslettres O,Y" 

4x0 DISFLAY AT(16,1) REEPF: "les lettres Q, 
Y pour choisirla reponse.": : "Sinon, le 
choix s'effectue": "par le levier de comm 
ande":"ou par les touches E,Xx,S,D" 

450 CALL KEY(S,K1,S1) 

440 IF SJ=Q0 THEN 450 

450 IF KJ=111 OR KJ=79 THEN HUM=I 

Q 570 ELSE HUM=Q 

40 IF EJ£#110 AND KHJ£:78 THEN 430 

470 CALL SOUND(70,-1, 0) 

480 DISPLAY AT(I1,1)ERASE ALL: "AVEC LES 
MANETTES" :: DISPLAY AT(13,1):"DE CONTRO 
LE Tr QUI NON" 

490 DISFLAY AT(15,1):"si vous repondez o 
ui": "vous utiliserez le levier":'"de la c 
ammande a distance" 

200 DISPLAY AT(18, 1) REEF: "sinon, vous ut 
iliserez"s"les touches E,X,S,D "s'du cla 
vier..." 

210 CALL FEY(S.M,N) 

ge IF N=0 THEN 510 

350 IF M=79 THEN 3460 

240 IF M=110 THEN 2490 

du0 IF M=111 THEN JOY=1 :: GOTO S70 

no IF°M=78 THEN JOY=0 ELSE GOTO 510 

3/0 CALL SOUND(70,-1,0) | 

280 DISFLAY AT(11,1)REEF ERASE ALL:"RECA 
FPITULATION DES SCORES " 

390 DISFLAY AT(13,1):"A CHAQUE TOUR 7" 
600 FOR D=i TQ 100 :: NEXT D :: DISFLAY 
AT(15, 1): "OUI /NON" 

610 CALL KEY(S,RAC, SL) 

620 IF SL=O THEN 610 

6iQ IF RAC=111 OR RAC=79 THEN RECAP=1 :: 
GOTO 660 

640 IF RAC=110 OR RAC=78 THEN RECAP=0Q EL 
SE GOTO 610 | 

650 CALL SOUND(70,-1,0) 

66Q CALL DELSFRITE (ALL) 

670 CALL SCREEN(4) 


FRINT "  DEGRE DE DIFF 
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ICULTE 7" 1100 IF HUM=1 AND AL=® THEN ALi=17 :: AL 
890 PRINT :2 PRINT 5: PRINT "1. 12-50" | 2291 :: AL3=9 :: AL4=13 
:: PRINT 1110 IF HUM=1 AND AL=3 THEN ALi=21 :: AL 
700 PRINT 2. 1-100" 525 PRINT 2=9 :: ALI=13 :: ALA4=17 
710 PRINT 4, 1-1000" :: PRINT 1120 DISPLAY AT(24,1)BEEF:A$(1) 
720 PRINT . 1-10000" :: PRINT 1130 IF HUM£>1 THEN DISPLAY AT(Z4,16):4$ 
730 PRINT . 12 FRINT {I+1) 
740 PRINT 5, 2-12 Givrets)": + + 25 | 1140 IF SQUS=1 THEN DISPLAY AT(1,5)EEF: 
CALL SOUND (100,700, 0) | Ci;"-";C2;"e" ELSE DISPLAY AT(1,5)BEEF:C 
760 CALL KEY(5.K1,51) dits CZs er" 
760 IF (S1=0)+(K1449)+(K1354) THEN 750 1150 IF DIVI=1 THEN DISPLAY AT(1,5) REEF: 
770 CALL SOUND(200,-1,0) Ci" "OZ M 
780 PRINT "UN INSTANT SVP..." 1160 IF Ki=%4 THEN DISFLAY AT(1,5)REEP:C 
790 AFF=1 dits C 2; eu 
800 IF Ki=49 THEN R1=50 52 B?=20 12 Rä=2 | 1170 IF HUM=1 THEN 1510 
O :: FLE=23 :: GOSUE 1710 1180 IF JOY=1 THEN 1570 
910 IF K1=50 THEN KHi=i00 :: 2=40 1: Hz 1190 DISFLAY ATIS, 1): “ou 
40 :: FLE=29 :: GOSUR 1710 , 1200 DISPLAY ATIS,):"D" 
820 IF Ki=Si THEN Ri=1000 :: RP=200 1: R | 1210 DISPLAY AT(4,2):"E" 
32700 :: FLE=140 :: GOSUR 1710 1220 DISPLAY AT(6,2)REEF: "x" 
80 IF Ki=5? THEN Bi=10000 :: R2=2000 :: | 1220 DISPLAY AT(S,2@):"q" 
HX=2000 :: FLE=180 :: GOSUR 1710 1240 DISPLAY AT(S,28)5"K" 
840 IF K1=53 THEN H1=100000 :: E2=5000 : | 1250 DISFLAY AT(6,27) "M" 
: FLE=250 :: :: GOSUR 1710 1260 DISPLAY AT(4,27):"I" 
850 IF Ki=54 THEN GOSUR 2290 :: FLE=14 1270 CALL HCHAR(9,13,178,F) 
860 GOSUE 2530 1280 CALL HCHAR(14,4,126,R) 
g70 CALL SCREEN(12) 1290 CALL HCHAR(15,27, 128, R) 
880 IF HUM=1 THEN 930 1200 CALL HCHAR(19,13,128,R) 
890 CALL CHAR (128, "O00000O0FFFFFFFF") 1%10 FOR D=1 TO 90 :: NEXT D 
900 CALL CHAR (136, "OOOGOOFFFFFFFFFF ") 1320 IF HUM=1 THEN 01,02, 08, 04=19 
910 CALL COLOR (14,9,12) 1H30 DISPLAY. AT (AL2, 02) :R? 
920 CALL COLOR(13,5,12) 1340 DISPLAY AT(ALE,Q3):R3 
9X0 IF HUM=1 THEN STE=1 ELSE STE=2 1250 DISFLAY AT(AL4, 04) :R4 
940 FOR I=1 TO J STEF STE 1360 DISFLAY AT(ALI,01):F1 
90 CALL CLEAR :: RANDOMIZE 1270 IF HUM=1 THEN 1650 
960 CHÉ=STRS (R2) 1380 IF JOY=1 THEN 1570 
970 IF LEN(CH#)=2 THEN R=2 1290 CALL KEY(0,K,9) 
980 IF LEN(CH#)=3 THEN F=3 1400 IF S=0 THEN 1390 
990 IF LEN(CH#)=4 THEN R=4 1410 IF K=69 AND AL=0 THEN 1950 


1000 IF LEN(CH#$)=S5 THEN 1420 IF K=73 AND AL=O THEN 250 


R=S 
1010 IF LEN(CH#)=é THEN R=é 1430 IF K=R3 AND AL=1i THEN 1950 
K=1 


1020 IF LEN(CH#)=1 THEN 1440 IF K=74 AND AL=zl THEN Z050 
1020 ALZ=INT (4#AND) 1450 IF E=68 AND ÂL=2 THEN 1950 
1040 IF AL=0 THEN ALI=8 15 ALZ=13 :: AL3 | 1460 IF K=75 AND AL=2 THEN 2039 
#14 2 ALA4=I8 5: Q1=10 5: QZ=1 s: Q5=20 1470 IF K=88 AND AL=3 THEN 1950 
:: D4=i0 1480 IF KE=77 AND AL=Z3 THEN 2070 
1050 IF AL=i THEN ALI=IS :: 2 AL | 1490 IF KÉ=69 OR K=83 OR K=6S OR KEQ8 THE 
3=18 :: ALA4=8 :: Oi=i :: Os nent N SSi=-1 :: CALL COLOR(13,7,12) 
:: Q4=i0 1600 IF Ez73 OR K=74 OR K=75 OK K=77 THE 
1060 IF AL=? THEN AL1=14 s2 AL?2=18 5: AL | N SS2=-1 :: CALL COLOR(1S,7,12) 
Z=g 22 AL4=13 2 Q1=20 5: Q2=10 :: 0%=10 | 1$10 IF JOY<51 THEN 1660 
:: Q4zi 1520 CALL JOYST(1,X1,Z1) 
1070 IF AL=Z THEN ALI=18 :: AL2=8 :: AL. 1530 CALL JOYST(2 29 
=1x ss AL4=14 55 O1=10 52 O2=10 5: OZ=1 1540 IF X1i=0 AND Zi=0 AND X=0 AND 2Z=0 TH 
:: Q4=20 EN 1520 
1980 IF HUM=i AND AL=0 THEN AL1=9 ss AL? | 1550 IF Z=4 AND AL=Q THEN 1950 
=13 3: AL3=17 :: AL4=ZI 1560 IF Z1=4 AND AL=O THEN 2030 
1090 IF HUM=1 AND AL=1 THEN ALi=13 5: AL | 1570 IF X=-4 AND AL=i THEN 1950 
2=17 3: ALS=ZI :: AL4=9 1580 IF Xi=-4 AND AL=i THEN 2030 
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1590 IF X=4 AND AL=Z THEN 1950 

1600 IF X1=4 AND AL=Z THEN 2050 

1610 IF 2=-4 AND ALE=Z3 THEN 1950 

1620 IF 21=-4 AND ÂL=S THEN 2030 

lLé30 IF 24 OR X=-4 OR X=4 OK Z2=-4 THEN 

SSi=-1i :: CALL COLOR(1S, 7,12) 

lé IF Z1=4 OK Xi=-4 OR X1=4 OR Ziz-4 T 

HEN SS2=-1 5: CALL COLOF(13,7,12) 

LéSQ IF HUM=Ï THEN GOSUR Zé60 

16é GOSUR 2080 

1870 IF Kis54 THEN GOSUER 2390 ELSE GOSUR 
1710 

1680 NEXT I 

1890 IF RECAF=1 THEN 2220 

1700 GOTQO 30 

1710 REM 

1720 DIVISINT (RNDX 35) 

1730 IF DIVI=1 THEN 1850 
1740 SOUS=INT (RNDX2) 

1750 CI=INT(ENDERI) +1 3: 
4 

1780 IF SQUS=1 AND CI<CZ THEN 1750 

1770 IF SOUS=1 THEN Ri=Ci-C2 ELSE R1=C1+ 

CE 

1780 RESRI+INT (RNDKHA) +1 

DXHE) +1 

1700 IF K3K1 THEN 1750 
1800 RS=CINT(ER1/10) 14x10 
110 RESTE=FI-FRE 


CS=INT (RNDXE1 ) + 


55 RESRI-INT(RN 


1820 R4= INT CCRI+INT (RNDKERS) à / 100) K1O+REST 

Ë 

LRO IF RISRZ OK RisRE OR Ri=R4 OF R£E=RS 
OR R£eR4 OR RIS=R4 THEN 1710 

140 EOTQ 1540 

1850 CX1=CINT {SOR CR1) XPND) +1) +2 

186 C£= (INT (SOF CE à XRND) +1 +2 


1870 Ci=CX14+C2 

1880 Ri=Ci/C2 

1890 RZ=R1+ INT (RNDKSOR (HZ) ) +1) 

1900 R3=R1- (INT (RNDXSOR (RD) ) +1) 

1910 IF RO THEN 1850 

1920 R4=R1+ CINT (RNDXSOR CRT) ) +1) 

1930 IF Ri=R? OR Ri=RT OR Ri=R4 OR RI=R3 
OR RZ=R4 OR RI=R4 THEN 1850 

1940 RETURN 

1950 CALL SOUND(100,700,0):: CALL SOUND( 
100,200,0):: CALL SOUND(100,400,0):: CAL 
L_ SCREEN(4) 

1960 691=551+2 

1970 DISPLAY AT(Z4,1):A$8(1)5" +":66i; "pt 
1980 FOR D=i TO 190 :: 
1990 CALL SCREEN(12) 
2000 IF HUM=1 THEN 2990 
2010 GOTO 1660 

FO LIT TT1111111111111111111111111111 
lÉTT111111111111 

2030 CALL SOUND(100,400,0):: CALL SOUND( 
100,125,0):3 CALL SOUND(100,2300,0):: CAL 


NEXT D 


L SCREEN(8) 

2040 SS2=562+2 

2050 DISPLAY AT(I24,1):A$(I+1)5" +":S6S2;" 
pts" 

2060 FOR D=1 TQ 190 :: NEXT D 

2070 CALL SCREEN(12%):: GOTO 1660 

2080 IF SOUS=1 THEN DISPLAY AT(1,215:Ci- 
C2 ELSE DISFLAY AT(1,21):Ci1+C2 

2090 IF DIVI=1 THEN DISFLAY AT(1,21):0C1/ 
Ce 

2100 IF Ki=&4 THEN DISPLAY AT(1,21) REEF: 
Cixc2 

2110 CALL SOUND (360, —4,0) 

2120 CALL HCHAR (2,24, 136,R) 

2130 FOR D=1 TO 50 :: NEXT D 

2140 SC(I)=SC(I1)+SS1 5: SC(I+1)=SC(I+1) + 
552 

2150 IF HUME51 THEN DISFLAY AT(20,8) : "ec 
are total" ELSE DISFLAY AT(235,8):"ecore 
total" 

2160 IF HUM£5%1 THEN DISFLAY AT(2E, 1) :A$( 
1)5s5 DISPLAY AT(22,12):S0(I) 3 "PTS" ELGE 
DISPLAY AT(34,1):A${(1)5" "sSC(T)s "pts" 
2170 IF HUM=1 THEN 2190 

2180 DISPLAY AT(24,1):A$(I+1):: DISFLAY 
AT{I34,12) :SC(I+1) 35; "FTS" 

2190 FOR D=1i TO 100 :: NEXT D 

2200 SS1=0 :s: S62=0 :: DIVI=O 

2210 RETURN 

2220 CALL CLEAR 5: CALL SCREEN(4):: FOR 
V=l TO 12 :: CALL COLOR(V,2,4):5: NEXT V 
ASS PRINT TAR(V) 3 "SCORES" 

Z340 PRINT 

2250 FOR I=i TO J 

2260 PRINT TAR(E) 3 ACID): TAR(Ï6) ; SCT): : 
NEXT I 
2270 FRINT 
: PRINT :: 
culte" 
2280 PRINT "schangement de joueurs" :: 
FRINT "A=arret du jeu“ 

22090 CALL FEY(Z.TIR, XX)s5: CALL KEY(OFIN 
sYY) 

2300 IF XX=0 AND YY=Q0 THEN 2290 

2510 CALL SOUND (50, 500,0) : 
2520 CALL SCREEN(12):: FOR V=i TQ 13 
CALL COLOR(V,2,12):: NEXT V 

IF TIR=I8 THEN 1700 

2340 IF FIN=49 THEN 1700 

250 IF FINSSOG THEN 680 

2380 IF FIN=SS1 THEN 310 

870 IF FIN=SS2 THEN PRINT " a bientot... 
4" £a RESTORE 3:32 GOSUR 2550 :: STOP 

2580 GOTOQ 2290 

2390 REM livrets 

2400 C1=INT(RNDK11)+1 :: 
1 

2410 RI=CIXCZ 5: R2=R1-CINT (RNDKS) +1) 
2420 IF RZ<1 THEN 2400 


53 PRINT ‘“isencore un tour" : 
PRINT "Zsautre degre de diffi 


Fan TE 


CZ2=INT (RNDX1 1) + 
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B43Q R3=R1+ INT (RNDXE) +1) :: 

NDKE&) +1) 

2440 IF RI=R? OR RisRS OR Ri=K4 OK R£E=R3 
OR RZ=FR4 OK RI=R4 THEN 2400 


R4=F1+ {INT (R 


CHAR (125, "OBOCFEFFFEOCOBOQ" ) 
CHAR (129, "OBOCFEFFFEQCOBOO" ) 
CHAR (128, "FFFFFFFFFFFFFFFE 
CHAR (136, 


2670 
2680 
2690 
2700 


CALL 
CALL 
CALL 
CALL 


2450 RETURN 

2460 FRINT "ATTENTION! 

la touche alpha lock doit 
2470 GOTQ 510 

2480 REM MUSIQUE 

Z490 FRINT "ATTENTION! 

la touche alpha lack dait 
e" 

2500 GOTQ 510 

2510 CALL MAGNIFY(2) 
2520 FOR F=i TO 10 3: 
{RNDX10)+48,15,176,112 
DE+F/Z2KSGN (RND—, 5) 
ZXSGN(ENDX-. 5): 
RESTORE 3: 
GOTO 2570 
FOR W=sl TO 48 :: 
RETURN 
TEM=110 2 
IF I1=46 THEN TEM=800 
CALL SOUND(TEM.Q{T), 


NEXT F 
Pre) 
2540 
BnaQ 
2560 
270 
2580 
290 
2),0) 
2600 NEXT I 

pe DATA 131,165,196,165, 

14 392: 440, 098, 287 


> DATA 196,220,262, 247,220, 


ds 196, 165, 196,523 


2630 DATA 171,270,880,131,185,494,185,22 


0,523, 131,270, 880 
2640 DATA 131,270, 
94,1175,196,494,784 
2650 RETURN 


2660 REM 1 SEUL JQUEUR% OK KOkHOHOK HONOR CHOICE 


HE XON AONO ACC OEKKK 


Evaluation de la 
mémoire disponible 
en Basic TI 


Lors de l'élaboration d’un pro- 

, il est ne se re 

ne pas indispensable 

d'éva évaluer l’espace mémoire disponi- 

ble, compte tenu de la place prise 

par le codage du programme et la 
mémoire Fr aux variables. 


Le Basic TI étant dépourvu de l'ins- 
truction SLZE, il convient d'insérer les 


lignes suivantes dans le programme 
(les numéros de ligne sont choisis ar- 
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etre levee" 


etre enfonce 


CALL SPRITECHKF, INT 
PEINE NRA SE 
:PXINT (RND#4.5)-2.25+F 
REM MUSIQUE 

READ Q{W):: 
FOR I=i TO 48 STEF 3 5: 


Q,G{I+1) 


196, DL2Ss LOS 3 


1047,131,2370,800, 397,4 


2710 
2720 
2780 
2740 
2730 
£760 
2770 


CALL 
CALL 
CALL 
CALL 
CALL. 
CALL 


COLOR (1%, 3, 12) 

VECHAR (8, 18, 128, 3) 
VECHAR (12, 18, 128,2) 
VEHAR (16, 18, 128, 2) 
VCHAR (20, 18, 128,3) 
VCHAR (AL1-1, 
REM DERUT RQLICLE Kk k NO HG OR OCR RIK 


17,136, 3) 


ETES TEST 1122): 
2780 FOR LI=S TO 23 
2790 IF LI:8 THEN 2820 


1,16,123) 


2800 FOR D=1 TO FLE :: NEXT D 
2819 CALL SOUND(40,800,5) 
2820 CALL SOUND (30, 200,0) :: 


CALL HCHAR IL 


2EX0 CALL HOHAR(LI-1, 16,22) 
2840 CALL GCHARILI, 17, MY) 


NEXT WU 


2850 CALL KEY (Z2,RT, SW) 


2860 IF FRT=18 THEN CALL SOUND (100,400, 0G) 


«Q,0(I+ | Z8R0 RETURN 


GGTQ 2890 
2870 FOR D=i TO 8 :: 


NEXT D :: NEXT LI 


2890 REM SQOUS-FROGR, D°ENTREE FOUR UN JO 
LIEU #4 AO HE NOM ONCE HEC AO OR OO OC CR OC OX 


XXHX 

2900 IF 
2910 IF 
2920 IF 
2930 IF 
2940 IF 


262,13%1,16 


AL=Q AND MY=136 THEN 
fl=i AND MY=136 THEN 
AL=Z AND MY=136 THEN 
AL=S AND MY=156 THEN 1959 
RT=18 THEN 6G1=65S1-1 

2950 CALL HCHAR (ALI, 15, 12%) 


1950 
1950 
1950 


2960 CALL COLOR (14,9,9) 


2970 FOR D=i TO 50 :: 
2900 CALL COLOR(14,1,1) 


2990 RETURN 


re et peuvent être modi- 
és 


1000 I=I+1 
1010 GOSUB 1000 


Ces instructions doivent absolument 
être exécutées après l’initialisation de 
toutes les variables. Si tel n’était pas 
le cas, le résultat serait inexact. 


En tapant ensuite RUN, on obtient 

rapidement MEMORY FULL IN 
1010. Sachant que chaque exécution 
de l'instruction GOSUB requiert 8 
octets, la place encore disponible en 
mémoire vive peut pas nds en 


tapant : 


NEXT D 


PRINT 8+1+23 


1é “+29” correspond à la place 
rise par les lignes 1000 et 1010. 
uons cependant que le + 
tat obtenu est une approximation à 
plus ou moins 7 octets puisque la 
mémoire se sature par blocs de 8 
octets. Si la variable F n'est pas utili- 
sée dans votre programme, il faut ra- 
jouter 8 au nombre d’octets disponi- 
bles (réservation ee de Ï lors 
de l'exécution). no 


Re 
que poeme pe loco 
que Li ne era ee dt 
normalemen 
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Communiqué de Texas 
Instruments France 


Après l'annonce de l'arrêt de la pro- 
duction aux Etats-Unis du TI-99/4A, 
Texas Instruments tient à rassurer les 
utilisateurs de cet appareil : 


e la réparation hors garantie sera as- 
surée pendant de nombreuses 


années. Texas Instruments pos- 
sède un important stock en pièces 
détachées, pour faire face à toute 
intervention pendant ce temps ; 


il y a des stocks d'accessoires et 
de logiciels permettant de faire 
face à la demande pendant plu- 
sieurs mois ; 


la sortie de certains nouveaux logi- 
ciels reste programmée : budget 


Othello à l’essai 


Gérard Santraille 


Othello est un module créé par Ga- 
briel Industries et commercialisé par 
Texas Instruments. 


De prime abord, ce programme sem- 
ble d’excellente facture. Le gra- 
phisme est soigné, les options de jeu 
nombreuses et la stratégie convain- 
cante. Voyons ses principales carac- 
téristiques. 


Huit niveaux de jeu sont accessibles, 
le temps de réponse est instantané 
au niveau 1 et d'environ une minute 
au niveau 8 (ce qui est parfaitement 
raisonnable). 


Avant d'essayer ce module, je me 
croyais plutôt bon à l’Othello. 


Depuis, je suis devenu nettement 
plus humble. En effet, je n’ai jamais 
réussi à battre le programme au ni- 
veau 6 et j'y parviens assez rarement 
au niveau B. 


Autre particularité intéressante : il est 
possible de soumettre à l’ordinateur 
un problème donné ou de poursui- 
vre une partie interrompue en en- 
trant le damier” colonne par co- 
lonne (ceci s'avère très pratique 
lorsque la partie s'étale sur plusieurs 
jours, ce qui n’est pas rare). 


Diverses fonctions sont accessibles en 
cours de jeu par pression de la tou- 
che AID”: , changement de niveau, 


privé, studiciels Magnard, TI-Calc ; 
e des logiciels sous forme de cas- 
sette seront vendus à partir de 60 
francs environ, et sous forme de 
module à partir de 130 francs. 


L'Ordinateur Familial TI-99/4A est le 
seul ordinateur familial offrant tous 
ces avantages. 


affichage des coups possibles, conseil 
de l’ordinateur et même permutation 
des joueurs. 


Notons enfin que l'ordinateur peut 
être un simple arbitre parfaitement 
impartial puisque , dans cette option, 
il consentira à vous montrer les 
coups jouables mais refusera de vous 
conseiller. 


Un très bon logiciel que cet Othello. 
Je le conseille vivement à tous les 
amateurs de jeux de réflexion. Ils 
trouveront en leur TI-99 un adver- 
saire de choix. 


Apprendre le Basic en programmant 
Roger Didi 


Dans le numéro 1 de 99 Magazine, 
nous avons commencé une initiation 
au Basic en nous appuyant sur la 
construction évolutive d’un pro- 
gramme. Cette démarche ayant eu 
l'agrément de nombreux lecteurs, 
nous allons poursuivre dans la même 
voie. Nous commencerons par écrire 
un caractère sur l'écran, en un en- 
droit choisi, puis nous modifirons ce 
caractère à volonté. 


Nous essaierons ensuite d'écrire un 
texte, de créer un curseur qui mar- 
que l'endroit où le caractère va s’ins- 
crire.. Pourquoi alors ne pas deman- 
der à la machine de mémoriser le 
texte écrit, de le restituer sur de- 
mande, de permettre des correc- 
tions. 


Le lecteur persévérant pourra ainsi se 
fabriquer” de proche en proche un 
programme de traitement de textes. 


Les programmes sont listés pages 14 à 16 


En faisant évoluer ce programme, 
nous étudierons plusieurs modes de 
travail utilisant des tests logiques et 
quelques nouvelles instructions offer- 
tes par le TI Basic. Nous supposons 
en général que le lecteur a assimilé le 
contenu de l’article ‘initiation au 
Basic” du numéro 1 de 99 Magazine 
mais essayons, dans la mesure du 
possible, de rendre ce nouveau cha- 
pitre abordable par des débutants. 


Programme 1 : 
un caractère 


L’instruction CALL KEY est certaine- 
ment plus utilisée que INPUT lorsque 
l’on souhaite que l'utilisateur du pro- 
gramme ait l'impression de comman- 
der par pression sur des touches le 
fonctionnement de la machine. Rap- 
pelons que CALL KEY(0,K,S) provo- 
que la surveillance du clavier et l’ins- 


cription de toute action dans les 
variables K et S. 


La variable S est affectée de la va- 
leur O (zéro) lorsqu’aucune touche 
n’est pressée , de la valeur —1 si la 
même touche reste pressée, et de la 
valeur 1 si une nouvelle touche est 
pressée. 


Des tests sur le contenu de cette va- 
riable S (dite variable d'ETAT) vont 
donc permettre de suivre les actions 
de l’utilisateur du programme sur le 
clavier. 


Lorsqu'une touche est enfoncée, la 
variable K est affectée du code de la 
touche pressée et si le premier para- 
mètre du CALL KEY est O (zéro), ce 
code est justement le code ASCII de 
la touche. Lorsque le clavier n’est 
pas sollicité, la variable K conserve la 
valeur —1 (moins 1). 
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Le programme 1 permet de bien 
comprendre le fonctionnement de 
cette instruction. Dès que l’on presse 
une touche, le caractère correspon- 
dant apparaît sur l’écran (ligne 8 et 
colonne 15). L’organigramme étant 
fourni, la démarche suivie doit être 
claire. 


Rappelons, en ce qui concerne les 
organigrammes, que nous plaçons les 
données, ou les actions, dans des 
rectangles alors que les tests sont ins- 
crits dans des losanges. Nous choisis- 
sons de sortir horizontalement du lo- 
sange si le test est positif (réponse 
OUI) et verticalement dans le cas 
contraire. Les traits fléchés indiquent 
le sens de lecture de l’organigramme. 


Organigramme du Progamme 1 


INITIALISER : 
NETTOYER L'ECRAN 
POSITION CARACTERE 


SCRUTER 
LE CLAVIER 


PLACER SUR 
L'ECRAN LE 


Programme 2 : une suite 
de caractères 


L'instruction CALL HCHAR(Y,X,C) 
place le caractère dont le code ASCII 
est C à l'intersection de la ligne N° X 
avec la colonne N° Y. 


Pour que chaque nouvelle lettre se 
place à la droite de la précédente, et 
sur la même ligne, il faut donc ne 
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pas changer YŸ et augmenter X de 1 
(on dit incrémenter X de 1) avant 
chaque appel à CALL HCHAR(Y,X.C). 
Ainsi, les caractères se plaçant les 
uns après les autres, il devient possi- 
ble d'écrire un texte sur l'écran 
mais. Essayez... 


Organigramme du Programme 2 


INITIALISAT ION 


SCRUTER 
LE CLAVIER 


PLACER SUR 

L'ECRAN LE 
CARACTERE 
PRESSÉ 


SE PREPARER A 
ECRIRE A DROITE 
DU CARACTERE 
PRECEDENT 


Programme 3 : 
un curseur clignotant 


Le programme précédent présente 
un premier inconvénient : l'utilisateur 
ne connaîtra pas l'endroit exact où 
va s'inscrire le caractère qu'il sou- 
haite écrire ! Nous allons donc l’aider 
en y plaçant un curseur clignotant. Il 
faut cependant que ce curseur puisse 
passer sur des lettres sans les effacer. 
La démarche est donc la suivante : 


1) enregistrer le caractère qui va se 
trouver sous le curseur 

2) dessiner le curseur à cet endroit 

3) remettre l’ancien caractère au 
même endroit 

4) recommencer en 
l'étape N° 1. 
L'instruction CALL GCHAR accom- 
plit justement l'étape No 1. En effet, 


revenant à 


Organigramme du Programme 3 


INITIALISER ET 
PREPARER LE 
DESSIN DU 
CURSEUR 


SCRUTER 
LE CLAVIER 


LE CURSEUR 
CLIGNOTE 


CLAVIER, 
PRESERVE 2” Qul 


ECRIRE LE 
CARACTERE 
LIGNE Y 

COLONNE X 


INCREMENTER 
X DE 1 
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CALL GCHAR(Y,X,CAR) affecte la 
variable CAR du code du caractère 
situé sur l’écran ligne Y, colonne X : 
elle permet donc de ‘’lire” sur 
l'écran. La suite du programme est 
évidente, l’organigramme montrant 
où doivent se situer les instructions 
concernant le curseur. 


Programme 4 : occuper 
tout l’écran 


Les programmes 2 et 3 laissent en- 
core un problème en suspens : lors- 
que l’on arrive en bout de ligne, le 
processus s’interrompt: en effet, la 
valeur de X ne peut pas dépasser 32 
(nombre de colonnes de l'écran) 
sans provoquer une erreur dans l’uti- 
lisation de CALL HCHAR! Il faut 
donc prévoir les étapes suivantes : 


e Après la valeur 32, X doit repren- 
dre la valeur 1 ; 


e La valeur de Y doit alors être aug- 
mentée d’une unité : on passe en 


effet à la ligne suivante, mais la 
D qu de Ÿ ne doit pas dépasser 
Nous avons donc choisi d'arrêter 
le curseur quand X=32 et Y=24, 
mais le lecteur pourra modifier ce 
choix et décider par exemple 
qu'après X=32 et Y=24, il y aura 
D CALL CLEAR suivi de X=1 et 
=1. 


Nous aurions pu utiliser des instruc- 
tions du type IF...THEN..ELSE.. 
pour réaliser ces tests. Nous avons 
préféré en profiter pour faire une dé- 
monstration de l’utilisation des calculs 
logiques utilisant les valeurs de vérité 
d’une proposition (—1 pour VRAI et 
0 pour FAUX). 


Les lignes 210 et 220 du programme 
4 méritent un temps d'arrêt. Nous 
conseillons au lecteur de les lire at- 
tentivement pour bien comprendre le 
principe général des calculs utilisant 
ces valeurs de vérité. 


Organigramme du Programme 4 


[ 


| 
I 


Le 


- 


IPARTIE ENCADREE 
DU 
|! PROGRAMME 3 


Programme 5 : un beep 
à chaque lettre 


Il peut être utile d'obtenir un beep 
lorsque la machine est prête à accep- 
ter une nouvelle lettre. Construisez 
un organigramme pour prévoir à 
quel endroit du programme doit se 
placer le CALL SOUND correspon- 
dant à ce beep. 


Programme 6 : 
mémoriser un texte 


Nous voulons ici que la machine mé- 
morise le texte que nous entrons. 
Nous prévoyons donc de dimension- 
ner un tableau de 100 lignes nommé 
PHRASE$ : ce programme pourra 
enregistrer 100 phrases distinctes. Un 
compteur nommé PH permet de nu- 
méroter ces phrases. 


Nous utilisons dans ce programme 
une technique particulière : la cons- 
truction d’une mémoire tampon, que 
nous nommons d’ailleurs TAMPON$. 
En effet, il faut permettre à l’utilisa- 
teur de corriger sa phrase avant de la 
valider en appuyant sur la touche 
ENTER. Cette dernière phrase doit 
aussi rester en attente et se fabriquer, 
lettre après lettre, dans une réserve 
d'attente (”’buffer” en anglais) afin de 
se recopier définitivement dans le ta- 
bleau PHRASES$ seulement lorsque 
le texte complet de la phrase est ac- 
cepté par l'utilisateur. 


Le Basic TI autorise une opération 
entre chaînes de caractères, nommée 
concaténation, qui utilise le signe 
”&”. Cette opération permet, en ac- 
colant deux chaînes, d’en obtenir 
une seule. Exemple: ’BON’”& 
JOUR’”’="BONJOUR” 


Le tampon désiré se construira donc 
en concaténant successivement cha- 
que ancien tampon avec le nouveau 
caractère sur lequel l'utilisateur aura 
porté son choix. 


TAMPONS =TAMPONS&CHRS(C) 
CHR$(C) doit évidemment se placer 
à droite car la phrase se construit, 
lettre par lettre, de la gauche vers la 
droite. 


Lorsque l'utilisateur presse la touche 
ENTER de validation (code ASCII 
13), la machine doit accomplir les ac- 
tions suivantes : 


e incrémenter de 1 le compteur de 
phrases PH ; 

© reproduire TAMPONS dans le ta- 
bleau PHRASES$ ; 


© renvoyer le curseur à la ligne ; 
© revenir à la scrutation de clavier. 


Tout ceci est accompli dans les lignes 
290-340 de ce programme, qui ne 
doit plus vous présenter de difficulté. 
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La ligne 330 incrémente le compteur 
Y des lignes de l’écran en l’arrêtant à 
24. Ce programme n'autorise donc 
que les textes occupant au maximum 
un écran : le lecteur pourrait étudier 
des méthodes lui permettant de 
construire des textes plus longs. 


Organigramme du Programme 6 


INITIALISATION : 
DIMENTIONNER 
TABLEAU 
PHRASES 


| SCRUTATION 
ET CURSEUR 
r > (PROGRAMMES 


! PRECEDENTS } 


ALIDATION ?>OUl 


ILE TAMPON 
GROSSIT 
D'UN 
CARACTERE 


lECRIRE 


“(PROGRAMMES 


| 
L 


l 
| 
| 
| 
| 
| 
| 
| 
A 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
L 


ENREGISTREMENT 
DE LA PHRASE 
DANS LE 
TABLEAU 


INITIALISER 
LE TAMPON, 
Y.x 


Programme 7 : corriger 
et reproduire un texte 


Dans le cahier des charges, nous 
lisons maintenant un nouveau sou- 


:)7) MAGAZINE n° 3 


hait du futur utilisateur : pouvoir cor- 
riger la dernière phrase introduite 
avant de la valider et pouvoir repro- 
duire tout le texte à volonté, par sim- 
ple pression sur la touche ’REDO” : 
FCTN 8. 


La touche ’flèche vers la gauche” 
(FCTN S: code 8) est absolument 
indiquée pour faire reculer le curseur 
en effaçant sur l'écran et dans le 
tampon le dernier caractère introduit 
par l'utilisateur. 


Les étapes de correction doivent 
donc être les suivantes : 


e déterminer le nombre de caractè- 
res du dernier tampon (instruction 
L S 


, 


calculer la nouvelle position du 
curseur : c'est un calcul de même 
nature que celui qui lui permet 
d'avancer et le lecteur devrait s’y 
attarder un moment ; 


effacer, en y imprimant un blanc 
(code 32), le dernier caractère de 
l'écran ; 

extraire du tampon toutes les let- 
tres sauf la dernière pour fabriquer 
un nouveau tampon : l'instruction 
SEG$ permet de réaliser cet ob- 
jectif (se reporter au manuel pour 
en étudier le fonctionnement). 
Pour retrancher 1 à la variable T 
qui contient le nombre de caractè- 
res de TAMPONS, nous avons 
écrit: T+(T>0). Essayez de 
comprendre les raisons qui nous 
ont poussé à écrire cela. 


Pour reproduire le texte, nous utili- 
sons un nouveau tampon nommé 
R$. Chaque phrase est reproduite 
dans ce tampon, puis lue lettre par 
lettre et reproduite sur l'écran: le 
programme qui accomplit ces perfor- 
mances (lignes 290 à 410) ne devrait 
pas présenter de difficulté. 


Programme 8 : 
salutations et signature 


L'utilisateur, qui commence à deve- 
nir fort exigeant, voudrait éviter 
d’avoir à écrire certaines phrases 
qu'il place dans tous ses textes : son 
adresse, une formule de politesse, le 
mot signature etc... 


Nous lui assurons qu’une simple 
pression sur la touche FCTN 9 
(BACK) lui permettra d'accomplir 
ceite performance. 


Nous enregistrons donc en DATA la 
suite des phrases à réutiliser, dans 
l’ordre où elles doivent être appe- 
lées : en effet, la directive DATA em- 
pile les unes sur les autres toutes les 
données qui la suivent, et l’instruc- 
tion READ permettra de relire la pile 
ainsi obtenue en commençant par la 
première donnée introduite. 


Si l'utilisateur presse FCTN 9 (code 
15), le programme reproduit dans 
TAMPONS une phrase lue dans la 
pile et enregistre directement ce tam- 
pon dans le tableau PHRASE$ : en 
effet, la phrase étant correcte, il est 
inutile d'attendre une validation. Il 
faut cependant prévenir l'utilisateur 
d’une chose : pour voir sur l’écran le 
résultat de son action, il lui faudra 
presser la touche FCTN 8 (REDO). 
Ce programme ne répond certaine- 
ment pas complètement au cahier 
des charges d’un client exigeant et 
mérite de nombreuses améliorations 
et transformations: voilà donc un 
sujet de travail pour les apprentis in- 
formaticiens qui les amènera à bien 
se poser les problèmes posés par l’in- 
formatisation d’une activité et à bien 
évaluer les apports du Basic quant à 
la solution de ces problèmes : nous 
encourageons les lecteurs à nous en- 
courager si la démarche utilisée dans 
cet apprentissage du Basic leur 
convient et même à nous proposer 
des programmes qu’il voudrait pou- 
voir entrer en utilisant leur machine. 


Trucs et astuces 


Magnétophone et fautes 
de frappe 


Lors de l’utilisation d’un magnétocas- 
sette pour la sauvegarde et la restitu- 
tion de données et programmes, il 
peut arriver que l’on tape un OLD à 
la place d'un SAVE (ou l'inverse). 
Pendant que lordinateur est encore 
sur une directive ’REWIND CAS- 
SETTE TAPE”, ‘PRESS CASSETTE 
PLAY” ou. "PRESS CASSEÏITE 
STOP … THEN PRESS ENTER’, il 
est possible d'interrompre la procé- 
dure en cours. En effet, chaque fois 
que l’on à la main (l'ordinateur at- 
tend une réponse), l’action peut être 
modifiée en appuvant sur E (pour 
EXIT), C (pour CHECK) ou KR (pour 
READ ou RECORD selon les cas). 


e E arrête le processus avec l’affi- 

chage de “PRESS CASSETTE 
STOP” suivi d'un message [/O 
ERROR sans aucune  consé- 
quence. 
C provoque l'affichage de 7RE- 
WIND. CASSETTE. TAPE” et 
lance la routine de vérification du 
programme. 


R relance la procédure de lecture 
ou d'écriture selon que l'on a 
frappé un OLD ou un SAVE. 





10 REM KG OR OR RRRERX 60 REM : 
20 REM * FROGRAMME No 1 * 70 RENM Le curseur est dessine sous le 
30 REM * UN CARACTERE  * numero 120. 
25 REM A40K 40k Ok NON CM NOR OX 7 REM CALL GCHAR GARDE dans CAR le c 
4) REM * HAGSIC TI * aractere a remplacer 
45 REM KA EIRE 100 CALL CHAR (120, "1B8SC7EFFFFYE3CI8") 
30 REM * COPYRIGHT * 110 CALL COLOR(12,9,1) 
a REM * ROGER DIDI * 120 CALL CLEAR 
60 REM * ET 69 MAGAZINE * 130 X=15 
5 REM 44 4x ON OK NON RON X 140 Y=8 
70 REM 150 CALL KEY(O,C,S) 
72 REM On scrute l'ecran, on ecrit le 160 CALL GCHAR(Y, X, CAR) 
caractere correspondant a la touche en 170 CALL HCHAR(Y, X, 1720) 
(X=1E, Y=e), 180 CALL HCHAR(Y, X, CAR) 
100 CALL CLEA 190 IF S=0 THEN 150 
110 K=15 200 CALL HCHAR(Y, X, 0) 
120 Y=£ 210 X=X+1 
150 CALL KHEY(O,C,S) #0 GOTQ 150 
140 IF S=0 THEN 130 
150 CALL HCHAR CV, X, DC) 
ER 10 REM HH0HOONOONONONEEE 
15 REM * FROGRAMME Ho 4 * 


20 REM *  OCCUPFER k 
10 REM HA OX De EM THÉ C'EÉCG d 
15 REM * FROGRAMME No © # HE RE ORNE 
20 REM *X SUITE DE  * US IT s 
28 REM *X  CARACTERES x 20 REM KE 
20 REM HO OO OOOOE UNS Gb à 


es  * SO REM *X ROGER DIDI  * 
A0 REM HO OOENEEERX NS Dee None ne 


45 REM % COPYRIGHT * BC REM 4h 4 HO NO OO 
5Q REM X  ROGER DIDI  * 5 REM 
55 REM * ET 99 MAGAZINE * 70 REM 
60 REM XEKKMREEMRERERERX 


Y augmente de 1 chauque fais qu 
ALES e X vaut 32 
65 REM 75 REM Le curseur s'arrete en bas et a 


70 REM la variable X augmente de 1 a cha droite de l'ecran. 
que tour. 100 CALL CHAR (120, "183C7EFFFF7E3C18") 


5 FEn 110 CALL COLOR(12,9, 1) 
100 CALL CLEAR 120 CALL CLEAR 


110 X=15 130 X=15 

120 Y=8 140 Y=R 

130 CALL KEY(0,C,S) 150 CALL KEY(0,C,S) 

140 IF S=0 THEN 170 140 CALL GCHARCY, X, CAR) 
FE PL. HEART EE 6e 170 CALL HCHAR(Y, X, 120) 
160 X=X+1 180 CALL HCHAR(Y, X, CAR) 
1706 GOTQ i13û 190 IF S=0 THEN 150 

200 CALL HCHAR(Y, X,C) 


210 X=-(X+1) K(XC F2) + (X= 32) K (VE 24) +XK(X=T 
REM HONOR X 2) # (Y=24) 


REM * FROGRAMME No Z *X 270 Y=Y+(X=1) k(Y£74) 
REM * UN CURSEUR *X 5x0 GOTO 150 

25 REM * CLIGNOTANT x 
REM KKKKKEREREMERINERX 
REM * RASIC TI * | 
REM HO 4 IR OM IE OK X 10 REM KKKKAH IRON RONA UX 

ù REM * COPYRIGHT * 15 REM * PROGRAMME No © * 

REM * ROGER DIDI * 20 REM * UN REEF A * 
REM * ET 99 MAGAZINE * 2 REM * CHAQUE LETTRE * 
REM KKKKKKKEREXAERKAEX 30 REM XX 4 ORCH CHOC OX 
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FE REM * RASIC TI * 260 X=-(X+1)KIXETZ) -(X=3:2) 
A0 REM HAE OO ONE EX 70 Y=Y-(X=1) 

45 REM * COFYRIGHT * 280 GOTO 170 

SO REM *% ROGER DIDI * 290 PFH=FH+1 

HS REM * ET 99 MAGAZINE * 300 PFHRASES (FH) =TAMFONS 
BQ REM KR 00 OOOOONX 410 TAMPONS="" 

65 REM 320 X=i 

100 CALL CHAR (120, "813C7EFFFF7ESCS81") .| O0 Y=y-(Y<24) 

110 CALL COLOR(12,9,% 340 GOTO 170 

2Q CALL CLEAR 

170 X=15 10 REM KHAN ER ANNÉE X 
140 Y=8 15 REM * FROGRAMME No 7 *# 
150 CALL SOUND(50,400,2) G REM *X CORRIGER ET * 
160 CALL KEY(O,C,S) 25 REM *X  REPRODUIRE 4 
170 CALL GCHAR(Y, X, CAF) HG REM * UN TEXTE Fi 
180 CALL HCHAR(Y, X, 120) 35 REM A0 k Ok OI RO NOIR OK 4 
190 CALL HCHAR(Y, X, CAR) AG REM % BASIC TI £ 
200 IF S=0 THEN 160 ‘ 45 REM 4 koh RMC OIC IOOICKK 
210 CALL HCHAR(Y, X, 0) 50 REM *X COPYRIGHT * 
270 X=-(X+1)KCXETZ)+(XST2)K(VEZA)+IEXIX= | es REM #  ROGER DIDI  * 
2) 4 (Y=24) 0 REM * ET 99 MAGAZINE * 
230 Y=Y+(X=1) k(YE24) 65 REM HO OO OX 
240 GOTOQ 150 70 REM 
À 90 REM FCTN 8 (REDO) provoque la reimpre 

ssion de tout le texte sur l'ecran 

10 REM XXKKKXEXKK ANNEE X 9% REM 

15 REM * FROGRAMME No 6 * 98 FEM 

20 REM * MEMORISEF: * 100 DIM FHRASES (100) 

2 REM * UN TEXTE * 110 CALL CHAR (120, "RLICYEFFFF/E3C8I ") 
30 REM KXXKKKEXEKEREINNUX 120 CALL COLOR(12,9,2) 

35 REM * RASIC TI * 130 CALL CLEAR 

40 REM XKXKKXXKXELXKRKEKX 140 X=S 

4% REM * COFYRIEHT * 150 Y=4 

EQ REM * ROGER DIDI * lé FH 

56 REM * ET 99 MAGAZINE * 170 CALL SOUND (50, 400,2) 
&Q REM XKXKKKKKKEIIERANEXX 180 CALL FEY(O,C,S) 

&à REM 190 CALL GCHAR(Y, X, CAR) 
80 REM Le texte est enregistre dans une | 200 CALL HCHARIY, X, 120) 
suite de phrases. 210 CALL HCHARCY, X, CAR) 
QQ REM Chaque phrase est formee dans un | 220 IF S=0 THEN 180 
tampon. 230 IF C=é THEN 290 
9 REM 340 IF C=8 THEN 460 

C6 REM 250 IF C=i3 THEN 530 

100 DIM PHRAGSES (100) 260 TAMFONS=TAMPONSECHRSE (0) 
110 CALL CHAR(120, "813C7EFFFF7EZCS81 ") 2370 GOSUE 430 

170 CALL COLOR(12,9,2) 280 GOTO 170 

130 CALL CLEAR 285 

140 X=3 286 

150 Y=4 287 

160 FH=Q 290 CALL CLEAR 

176 CALL SOUND(50,400,7 300 X=Z 

180 CALL KEY(O,C,S) 310 Y=4 

190 CALL GCHAR(Y, X, CAR) 320 FOR I=i TO FH 
200 CALL HCHAR(Y,X, 120) 330 R$=FHRASES (I) 
210 CALL HCHAR(Y, X, CAR) 40 FOR J=i TO LEN(K#) 
220 IF S=0 THEN 180 350 C<ASC(SEGS (R$,J,1)) 
250 IF C=13 THEN 290 360 GOSUR 420 
240 TAMPFONS=TAMFONSECHRS (C) 370 NEXT J 
250 CALL HCHAR(Y, X, OC) RQ Y=Y-(Y<24) 
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390 
TETE) 
410 
AE 
4is 
417 
420 
450 
4aû 
#50 
455 
35 
A7 
4ëi 
470 
=) 

480 
490 


00 


X=1 
MNEXT I 
GOTO 170 


Y=Y-{X=1) 
FETUFN 


T=LEN (TAMPONS ) 
A=UCX-1)KCXEA)+IZK(KElIIKOTE SLI EXT 


Va (TE 1) KCY+(X=E D) )-YK (Tel) 
CALL HCHAR (Y, X, 35) 

REM 

TAMPONS=SEGS (TAMPONS, 1, T+ TG) ) 
20 GOTQ 170 


0 PH=PH+i 
540 FHRASES$ (PH) = TAMPONS 
S50 TAMPONS="" 


S70 Y=Y-(Y£ 24) 
“QG GOTO 170 


10 
HE 


zQ 


REMAKE ONE RO EX 

REM * PROGRAMME No 5 *# 

FEM * SALUTATIONS ET * 

2 BEM *# SIGNATURE x 

AO RER KG ACKONON NA NON NOK MOCHE 

A REM # RASIE TI # 

ii REF OM OACK A A ON NOR OK 

45 HEM % COPYRIGHT # 

Si REM * FOGER DIDI 4 

me REM *X ET 99 MAGAZINE % 

dir RER A OX NOR AO AONNCNEX 

Si REM 

Qi REM FCTN 9 RACE) provoque l'ecritur 

e d’une formule de politesse puis de ‘ei 

jnature*, 

9 REM 

Gé REM 

100 DIM PHRASES (100) 

105 DATA FIERFRE DUPONT,7 RUE RENOIR, 9742 

9 VILLAGE 

lit DATA VEUILLEZ CROIRE À L'EXPRESSION 

DE MES SENTIMENTS LES MEILLEURS, " 
SIGNATURE" 

120 CALL CHAR (120, "OLSCYEFFFFYESCE81") 

150 CALL COLOR (12,9,2%) 

140 CALL CLEAR 

1SG Xe 


160 Y=4 


170 
180 
190 
200 
310 
220 
270 
240 
250 
260 
270 
2aû 
290 
OO 
310 
20 


330 


“4 C 
350 
F&Q 
370 
RQ 
390 
400 
410 
420 
450 
440 
450 
440 
470 
480 
490 
300 
io 
520 
Pa (A 
540 
etat el 
560 
370 
ee) 
E90 
00 
=1; 
&10 
&20 
630 
&4û 
tete) 
ééQ 
&70 


“680 


890 
7Ooû 
710 
720 
7:30 
740 


FH=0 
CALL SOUND{50,400,2 
CALL KEY(0,C,9) 

CALL GCHAR(Y, X, CAR) 
CALL HCHAR(Y, X, 120) 
CALL HCHAR(Y, X, CAR) 
IF S=0 THEN 190 

IF C=é THEN 360 

IF C=8 THEN 590 

IF C£:15 THEN 290 
READ TAMPONS 

GOTO 490 

IF C=13 THEN 690 
TAMPONS=TAMPONSSCHRS (C) 
GOSUE 520 

GOTO 180 


CALL CLEAR 
X=3 

Y=4 

FOR I=i TO FH 
RÉ=PHRAGES (1) 

FOR J=i TO LEN(R#) 
C=ASC (SEGS (R$, I, 1)) 
GOSUE 520 

NEXT J 

Y=Y-—(YE 24) 

X=1 

NEXT I 

GOTO 180 


CALL HCHAR(Y, X, C) 
X=— (X+1) K (XE 32) —(X=32) 
Y=Y—(X=1) 

RETURN 


T=LEN (TAMPONS ) 
X= CÜX—-1L)KCX 1) HIPKK=L)IKTE SL) —-XKÛT 


Y=— (TE 1) X(Y+(K=Z2) )-YX(T=1) 
CALL HCHAR(CY, X,32) 

REM 

TAMPONS=GEGS (TAMPONS, 1, T+(T 0) ) 
GOTO 180 


FH=FH+1 
FHRASES (FH) =TAMPONS 
TAMFONS="" 

X=i 

Y=Y-(Y<E4) 

GOTQ 180 
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On parle beaucoup de Pascal: on 
prétend qu'il pourrait supplanter de 
nombreux autres langages dans des 
domaines aussi variés que le calcul 
scientifique, les mathématiques, la 
gestion, les programmes éducatifs 
(désormais appelés ’’didacticiels”) et 
même les jeux. 


Pascal serait donc LE langage univer- 
sel, parfaitement polyvalent et facile 
d'emploi. Qu'en est-il réellement ? 
Même si de nos jours Pascal est 
assez largement diffusé (notamment 
dans les milieux universitaires), For- 
tran, Cobol et le Basic ont encore de 
beaux jours devant eux. 


Une anecdote croustillante : de mau- 
vaises langues assurent que la sonde 
américaine Mariner IV serait encore 
de ce monde si son programme de 
contrôle de trajectoire avait été écrit 
en Pascal. En effet, la commission 
chargée d'étudier les causes de l’acci- 
dent révéla que l’erreur était imputa- 
ble à un programme Fortran qui 
avait confondu une variable avec un 
mot-clé suite à une faute de frappe. 
Cette mésaventure ne pourrait se 


produire en Pascal où chaque varia- 


ble est déclarée. 


Les scientifiques n’ont pas pour au- 
tant abandonné Fortran. Les pro- 
grammes Pascal sont cependant de 
plus en plus nombreux sur le marché 
industriel (on y trouve même des ”’si- 
mulateurs de procédés”, domaine 
jusqu'alors réservé au Fortran). 


L'apparition du Pascal UCSD (facile- 
ment implantable sur les micro-ordi- 
nateurs comme le TI-99 ou l’Apple) 
a généralisé ce processus et, désor- 
mais, chacun peut se livrer aux joies 
du Pascal avec une configuration 
somme toute réduite et peu coûteuse 
par rapport au matériel nécessaire il 
y a seulement quelques années. 


Pascal est un langage de haut niveau 
(tout comme le BASIC...), particuliè- 
rement bien adapté à la programma- 
tion structurée. L'écriture d’un pro- 
gramme en Pascal impose une 
certaine méthode d’analyse. L’ap- 
prentissage d’un tel langage passe 
par la maîtrise parfaite de cette der- 
nière souvent baptisée ’’analyse des- 
cendante”. 


Cette formule recouvre un processus 
de décomposition (découpage par 
blocs) qu'il conviendra d'appliquer 
parfaitement si l’on ne veut pas per- 
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Introduction au Pascal 


dre trop de temps lors de la mise au 
point des programmes. Ce type de 
découpage permet d'affiner progres- 
sivement la résolution du problème. 
Il s'avère particulièrement utile lors- 
qu'on ne peut embrasser mentale- 
ment l’ensemble des étapes requises 
pour un traitement. 


Le Pascal UCSD 
et le TI-99 


Pour pratiquer Pascal sur notre ordi- 
nateur préféré, il faut d’abord dispo- 
ser de la carte P-Code, chargée d'in- 
terpréter les programmes écrits en ce 
langage. Sont également nécessaires 
l'extension 32 K et un lecteur de dis- 
quette au moins (avec contrôleur 
bien entendu). 


Si l’on désire développer soi-même 
des programmes, il faut se munir de 
la disquette Editeur/Filer/Utilitaires 
(pour les écrire, les sauvegarder...) et 
e la disquette Compilateur (pour les 
compiler et les exécuter). Enfin, pour 
utiliser des programmes en langage 
assembleur (TMS 9900) sous sys- 
tème-P, il faut disposer de la dis- 
quette Assembleur/Editeur de liens. 


La disquette Editeur/Filer/Utilitaires 
comporte un éditeur de texte pour 
l'écriture et la mise au point des pro- 
grammes, un système d’exploitation 
de disques appelé Filer (qui permet 
de dupliquer, sauvegarder et mani- 
puler les différents fichiers) et un en- 
semble de programmes utilitaires. 
Quant à la disquette Compilateur, 
elle transforme un fichier TEXT (issu 
de l'éditeur) en un fichier CODE 
exécutable par l'ordinateur. 


Il faut savoir que ’’Pascal UCSD” est 
une marque déposée de l'Université 
de Californie de San-Diego” et que 
la ‘’portabilité” d’un logiciel écrit 
dans ce langage est théoriquement 
totale, c’est-à-dire que si votre grand- 
oncle a mis au point un fantastique 
programme de calcul de probabilités 
au loto sur un Apple Il ou sur un 
TRS 80, vous pourrez théoriquement 
l'utiliser tel quel sur votre TI avec la 
carte d'interprétation du code-P (la 
réciproque se vérifie également). 


La documentation fournie par Texas 
Instruments (en anglais) suppose que 
l’on sait déjà programmer en Pascal 
standard. Elle ne présente que les ca- 
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ractéristiques particulières du Pascal 
UCSD, notamment de la version 


IV.0 qui est celle implantée sur le TI- 
99. 


Les ouvrages d'introduction au Pas- 
cal (standard ou UCSD) sont nom- 
breux. Une bibliographie sommaire 
vous est d’ailleurs donnée à la fin de 
cet article. 


Si, comme je l'espère, vous êtes un 
passionné de programmation (le sim- 
ple fait de lire cette revue tendrait à 
le prouver), il vous faut connaître et 
pratiquer le Pascal. Ce langage d’une 
richesse inouïe, tant par ses capacités 
graphiques que par ses aptitudes au 
calcul ou à la gestion, va progressive- 
ment s'implanter dans la plupart des 
domaines de l'informatique profes- 
sionnelle ou personnelle. Ignorer to- 
talement Pascal pourrait un jour 
constituer un handicap. 


Bibliographie sommaire 

Initiation 

e Le Pascal par l'exemple, de Jean- 
Alain Hernandez, aux Editions Ey- 
rolles. 
Du Basic au Pascal, de E. Floegel, 
aux Editions Micro Systèmes. | 
Introduction au P-System UCSD, 
de J. Butah et C. Grant, aux Edi- 
tions SYBEX. 
Le système Pascal UCSD (2 
tomes), de Thierry Chamoret, aux 
Editions Editests. 
Programmer en Pascal, de Daniel- 
Jean David et Jean-Luc Des- 
champs, aux Editions du PSI. 


Perfectionnement 


e Le langage Pascal 150 avec Pascal 

6000 et Pascal UCSD, de Nadia 
Magnetat-Thalmann, Daniel Thal- 
mann et Jean Vaucher, aux Edi- 
tions Gaétan Morin. 
Pascal (manuel de base, techni- 
ques et concepts de programma- 
tion avancés), de P. Lignelet, aux 
Editions EAP. 


Applications 


e Programmation structurée en lan- 
gage Pascal, de R. Lorthal, aux 
Editions Masson. 

e Programmes en Pascal pour scien- 
tifiques et ingénieurs, de Alan R. 
Miller, aux Editions Sybex. 
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Puissance 4 


Daniel Massé 


Il y a quelques années déjà, je pas- 
sais bien des heures à jouer au 
’morpion”, pas tellement pendant les 
heures de permanence (il y avait tou- 
jours autre chose à faire), mais sur- 
tout pendant les heures un peu em- 
bêtantes (comme par exemple en 
anglais, et surtout en histoire, qui me 
’barbait” profondément). 


Ce temps est maintenant bien passé, 
et je manquais un peu de partenai- 
res, jusqu’à ce que je trouve cet ad- 
versaire implacable qu'est le TI- 
99/4A. 


Le jeu de Puissance 4 est assez sem- 
blable au Morpion, avec la seule dif- 
férence que le jeu se joue normale- 
ment en glissant des jetons dans une 
grille verticale : les jetons tombent en 
bas de la colonne dans laquelle on 
les place. Le gagnant est celui qui ali- 
gne 4 pions, dans n'importe qu’elle 
direction. 


Voyons maintenant un peu le pro- 
gramme. Après avoir défini plusieurs 
valeurs de N (sur lesquelles nous re- 
viendrons plus loin), nous définissons 
les caractères représentant les pions 
des deux joueurs, puis une petite 
musique qui rend le programme plus 
vivant. Les lignes 410 à 450 permet- 
tent au joueur de choisir le niveau de 
difficulté ND (égal à O ou à 1), dont 
nous verrons plus loin comment il af- 
fecte la tactique de l'ordinateur. 


Les instructions suivantes (jusqu’à 
720) décrivent le coup du joueur, et 
sont simples à comprendre. Au pas- 
sage, nous voyons les variables JC et 
SC, définissant les couleurs d’écran 
et de caractères, la variable C qui ac- 
cumule le nombre de coups joués 
depuis le début de la partie, G(X) qui 
représente le nombre de pions déjà 
positionnés dans la colonne X, et la 
variable A(Y,X) qui met en mémoire 
le pion joué dans la case (Y,X). À est 
égal à 1 si le pion appartient au 


100 !OKAAKEXEMNENERERAEX 
195 ! *X FUISSANCE 4  * 
110 ANNONCE A HONOR OO OX 
115 ! *X HASIC ETENDU *# 
120 AN NOR ON OO OO IOKX 
125 D # COPYRIGHT * 
130 ! *X DANIEL MASSE * 
145 ! x ET 99 MAGAZINE *# 
145 A AO NOK ONCE IOHOCIOEX 


joueur, et à 5 si le pion appartient à 
l'ordinateur. 


La partie la plus intéressante du pro- 
gramme commence en 720: c’est la 
tactique de l'ordinateur. À partir de 
la ligne 790, et pour chaque valeur 
de X, l’ordinateur commence par re- 
garder s’il reste une case libre dans la 
colonne, puis va consulter les cases 
voisines pour voir quels sont les 
pions déjà alignés avec la case libre. 


Il commence par regarder les cases 
se trouvant dans la même colonne 
(alignements verticaux), puis celles 
qui se trouvent dans la même ligne 
(alignements horizontaux), et finale- 
ment les diagonales. C’est dans 
l'évaluation de ces alignements qu’in- 
tervient le tableau N défini au début 
du programme, et que nous retrou- 
vons en 1800. 


La variable S additionne les valeurs 
de A(Y,X) pour chaque case de l’ali- 
gnement. Par exemple, si l’aligne- 
ment contient déjà 3 pions de l’ad- 
versaire (c’est-à-dire vous), À prend 
la valeur 1 pour chacun de ces 
pions, et S a donc la valeur 3. Il est 
évident que l’ordinateur, s’il joue cor- 
rectement, doit jouer sur cette case 
(à moins qu’il puisse gagner en ali- 
gnant un quatrième pion avec 3 
autres déjà en place). La variable 
N(S+1), égale à N(4), est égale à 
1000. : 


L'ordinateur met en mémoire une 
variable T représentant la somme des 
valeurs de N pour chacun des aligne- 
ments passant par la case considérée. 
Pour jouer, il choisira la case ayant 
permis d’obtenir la plus grande va- 
leur de T. 


Mais vous pourrez vérifier vous- 
même que vous battez très facile- 
ment l'ordinateur quand vous choi- 
sissez le niveau 0, car l’ordinateur ne 
s'occupe pas de savoir si, en jouant, 


il ne vous donne pas un marche-pied 
permettant de gagner au coup sui- 
vant. 


C'est pourquoi, au niveau 1 
(ND=1), l’ordinateur va regarder ce 
qui se passerait au coup suivant : il 
évalue les alignements passant par la 
case située au-dessus de celle où il 
envisage de jouer, pour éviter autant 
que possible que vous puissiez ga- 
gner au coup suivant. Vous constate- 
rez alors qu’il devient beaucoup plus 
difficile à battre. En fait, il serait pos- 
sible de le rendre pratiquement im- 
battable, en affinant encore sa tacti- 
que, mais il faut reconnaître qu'il 
n’est pas très drôle de se faire tou- 
jours battre par une vulgaire ma- 
chine... Et vous verrez vous-même 
qu'il faut déjà un certain temps pour 
trouver une tactique victorieuse (ce 
qui, bien entendu, est tout à fait pos- 
sible). 


Ecrit en Basic Etendu, ce pro- 
gramme n'utilise cependant pas 
toutes les possibilités de ce langage, 
en dehors de quelques instructions 
multiples et de l'instruction DISPLAY 
AT, bien préférable au PRINT (qui 
entraine un ’SCROLL’” désagréa- 
ble). Avec quelques modifications, 
vous devez pouvoir réécrire le pro- 
gramme en Basic TI, mais il sera 
alors nettement plus lent. 


L’instruction de la ligne 280 (ON 
ERROR 1880) a été laissée à titre de 
démonstration : elle est bien utile 
pour mettre au point un programme. 
L’instruction de la ligne 160 (ON 
WARNING NEXT) est importante 
quand vous rentrez des données par 
l'instruction ACCEPT : si vous utilisez 
VALIDATE et que vous tapez 
ENTER, vous obtenez un message 
d'erreur. Si vous n’utilisez pas VALI- 
DATE et tapez autre chose que le 
chiffre attendu, vous obtenez aussi 
un message d'erreur. 


CALL CLEAR 

DIM A(5,7),N(20) 
ON WARNING NEXT 
.N(i)=.01 

N(2)=.1 

N(3)=10 
N(4)=1000 
N(6)=z1 
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270 N(11)=100 

230 N(16)=10000 

240 CALL CHAR(104, "O1010303070F3EFCROROC 
OCOEOF07C3FFCSEOF07050701013F7CFOE0COCO8 
QR0") 

250 CALL COLOR (10,13,4) 

260 CALL CHAR(117,"804070181C0E0703%01020 
4183870E0C007070E 1C18204080C0E 0703818040 
201") 

270 CALL COLOR(11,5,12) 

280 ON EFROR 1880 
290 JC=14 :: SC=Z :: 
300 GOSUR 2270 

310 DISPLAY AT(1,10)ERASE ALL: "PUISSANCE 
4" GOSUR 320 :: GOTO 410 

320 CALL SQUND(100,494,2) 

330 CALL SGUND (100,440, 2) 

340 CALL SOUND(400,494, 3) 

350 CALL SOUND (100,440, 2) 

360 CALL SQUND(100,39%,2) 

37G CALL SQUND (100,349, 2) 

380 CALL SQUND(200, 330, 2) 

390 CALL SOUND (406,294, 2) 

400 RETURN 

410 DISFLAY AT(2,10):" 

420 DISFLAY AT(10,5): "NIVEAU DE DIFFICUL 

TE 7" 

430 DISFLAY AT(12,5):"O POUR DEBUTANT", " 
n Le 1 FOUR JOUEUR CONFIRME" 

440 ACCEFT AT(10,27) :ND 

450 IF ND<>0 AND ND‘>1 THEN 440 

460 REM JEU 

470 GOSUR 1910 1000 5=0 

480 DISFLAY AT(3,0): "OBJECTIF : ALIGNER |1910 FOR ID TO D+i :: 

4 FIONS","LA DIRECTION EST QUELCONQUE" I 

490 DISFLAY AT(6,0):"TIRAGE AU SORT DÙ 1 | 1020 

ER JOUEUR" 1050 

500 FOR I=1 TO 1000 1640 

510 RANDOMIZE 1050 

570 JO=INT (RNDK2) +1 1060 

530 IF JO=1 THEN 720 1970 

540 REM JOUEUR JQUE I 

550 JC=13 SC=4 :: GOSUR 2270 1080 

560 C=C+i 1090 

570 IF C=36 THEN 1510 1100 

“RO DISPLAY AT(3.0):"A VOUS DE JQUER","N | 1110 

O DE COLONNE S.V.P. 1120 
590 DISFLAY AT(6,0):" " 1130 


660 GOSUR 1450 

700 IF L{X)=1 THEN 1570 

710 GOTO 72û 

720 REM TI JOUE 

7EQO CeC+1 

740 B=û 

750 M=-10000 

760 IF C=5é THEN 1510 

770 GOSUR 1820 

780 FOR X=i TO 7 

790 TT=0 :: GOSUR 860 

800 IF ND THEN GOSUR 1400 

810 IF T£M THEN 840 

820 M=T 

50 XM=X 

840 NEXT X 

850 GOTO i290 

860 LX)=0 

#70 T=û 

880 Y=5-G{X) 

690 IF {Y=0 AND TT=0) OR (YEO AND TT=1li THE 
:: RETURN 

900 IF Y=S5 THEN 950 

910 S=0 

920 FOR J=1 TO 4 

950 GOSUR 1740 

940 IF Y=i THEN 970 

930 S=û 

960 FOR J=2 TO S :: 

970 GOSUR 1740 

980 IF X:4 THEN 1050 

990 FOR D=i TO X 


K=i 


=G+A(J,X):: NEXT J 


S=S+A(J,X)s:: NEXT J 


G=S+A(Y,I):: NEXT 
GÜSUR 1740 

NEXT D 

GOTO 1100 

FOR D=X-3 TO 4 
5=0 

FOR I=D TQ D+3 :: 


NEXT I 


SeG+A(Y, I): NEXT 


GOSUR 1740 

NEXT D 

AA=X+Y 

IF Y=S OR AA:S OR AAS 
=0 


FOR J=i TO 4 


THEN 1150 


I=AA-J :: S=S+A(, I 


600 
610 
620 
630 


ACCEFT AT(4,24)RHREEF: X 

IF X<1 OR X:7 THEN 600 

IF G(X)25 THEN 650 

DISFLAY AT(6,0):"COLONNE REMPLIE. RE 


JOUEZ" 


640 


AT(6,0):" "3: 


650 
660 
67 
680 


FOR I=i TO 200 NEXT I DISPLAY 


GOTO 600 


Y=5-G(X) 
CAR=104 
G(X)=G(X) +1 
A(Y,X)=1 
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je 

1140 
1150 
1160 
1170 
EN 

1180 
1190 


‘1200 


1210 
1220 


NEXT J 

GOSUR 1740 

IF Y=1i OK AA:S OR AÂ“é 
S=0Q 

FOR J=? TO 5 :: I=fA- 
NEXT J 

GOSUR 1740 

AA=X-Y 

IF Y=S OK AA<O OR AÂSS 

=(} 


FOR J=i TO 


THEN 1190 


THEN 1340 


55: I=AA+IJ 


S=S9+A(J,1 
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}s5 NEXT J 1760 IF S=35 AND TT=i THEN T=T-1000 
1230 GOSUR 1740 1770 IF S=2 AND TT=1 THEN T=T-10 
1240 IF Y=1 OR AÂ£-1 OR AA:Z THEN 1280 1780 IF TT=1 THEN 1810 

1250 S=0 1790 IF S=15 AND B=Q THEN 1640 
1260 FOR J=2 TO S :: I=AA+J :: S=G+A(J,I | 1800 T=T+N(S+1) 

):: NEXT J 1810 RETURN 

1270 GOSUR 1740 1820 REM ECRITURE 

1280 RETURN 1830 JC=S :: SC=8 :: GOSUR 2270 
1290 X=XM 1840 DISFLAY AT(3,O):"A MOI DE JOUER","J 
1300 DISFLAY AT(4,12):X E JOUE EN" 

1510 FOR Isi TO 200 :: NEXT I 1850 DISPLAY AT(6,0)z:" " 

1:20 CAR=112 1860 RETURN 

1330 Y=5-G(X) 1870 GOTO 1800 

1340 G{X)=G(X) +1 1880 CALL ERR(CD,TY,SE,LN) 

1350 AY, X)=S 1890 PRINT CD; TY:SE;LN 

1360 GOSUE 1450 1900 RETURN NEXT 

1370 H=i :: TT=0 1910 REM TRACE DE LA GRILLE 

1380 GOSUE 840 1920 JC=9 :: SC=15 

1590 GOTO 540 1930 Kz=l 

1400 REM EVALUE CASE DESSUS 1940 GOSUR 2270 

1410 Y=Y-1 52 TT=i 1950 DISFLAY AT(1,10)ERASE ALL: "FUISSANC 
1420 GOSUER 890 E 4" 

1430 Y=Y+1 1960 

1440 RETURN 1970 CALL CHAR (96, "OOOQOOFF") 
1450 REM AFFICHE FION 1980 CALL CHAR(97, MICICICECICECSCSC") 
1460 CALL HCHAR(7+ZKY, 3KX, CAR) 1990 CALL CHAR(98, "FFFFFFFFFFFFFFFE") 
1470 CALL HCHAR(7+SKY, 1+3KX, CAR+1) 2000 FOR 1=9 TO 24 STEF 15 

1480 CALL HCHAR(B+Z3XY, ZT4X, CAR+2) 2010 CALL HCHAR(I,2,98,22) 

1490 CALL HCHAR(B+IKY, 1474 X, CAR+TS) 2020 NEXT I 

1500 RETURN 2030 FOR I1=12 TO 21 STEF 3 

110 REM EGALITE | 2040 CALL HCHAR(I,2,96,22) 

1520 JC=14 :: SC=2 :: GOSUR 2270 2050 NEXT I 

1530 DISPLAY AT(3, O0): "EGALITE. FAS MAL J | 2060 FOR 1=2 TO 2% STEP 3 

QUE", " Ma MEN 8 Ls GOSUB 320 2070 CALL VCHAR(10,1,97,14) 

1540 FOR I=1 TO 1900 :: NEXT I 2080 NEXT I 

1550 GOSUR 19510 2090 FOR I=i TO 19 STEF 3 

1560 GOTQ 490 2100 DISFLAY AT(B,1):(I+2)/Z 
1570 REM JOUEUR GAGNE 2110 NEXT I 

1680 JC=14 :: SC=Z :: GOSUR 2270 2120 FOR J=i TO 7 

1590 DISPLAY AT(3,0):"OK VOUS AVEZ GAGNE | 23130 L(J),G6(J)=0 

AL EN MSN 0 ces GOSUR -S20 140 FOR I=i T0OS5 

1600 RL) ER (1) +1 2150 A(I,J)=0 

1610 FOR I=1 TO 1000 :: NEXT I 2160 NEXT I 

1620 GOSUR 1910 2170 NEXT J 

18430 GÜTO 720 2180 C=0 

1640 REM TI GAGNE 2190 DISPLAY AT(9,23) : "SCORE" 
1850 DISPLAY AT(3,0):"DESOLE, JE JOUE EN | 2200 DISPLAY AT(8,25):"=====" 
“ex 2210 DISFLAY 

1660 CAR=117 2220 DISFLAY AT(12,22) : "JOUEUR" 
1670 GOSUR 1450 2230 DISPLAY AT(14,24):R(1) 

1480 JC=14 :: SC=E :: GOSUR 22770 2240 DISPLAY AT(17,23):"T. I." 
1690 DISFLAY AT(4,0):"ET JE GAGNE" :: 60 | 2350 DISPLAY AT(19,24):R(2) 

SUB 320 2260 RETURN 

1700 FOR I=1 TQ 1000 :: NEXT I 2270 REM COULEUR ECRITURE 

1710 R(2)=R(2)+1 2280 FOR I=0 TO 8 

1720 GOSUR 1910 2290 CALL COLOR(T,JC,.K) 

1720 GOTO 540 2300 CALL SCREEN(SC) 

1740 REM EVALUATION 2510 NEXT I 

1750 IF S=3 AND TT=0 THEN L(X)=1 2320 RETURN 
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Cet article est destiné aux lecteurs 
qui possèdent depuis peu l’Edi- 
teur/Assembleur (ou la mini-mé- 
moire). Il est évident que ceux qui 
pratiquent l’assembleur avec maestria 
n’apprendront pas grand chose en li- 
sant ces pages. 


Pour ce premier article sur l’assem- 
bleur, il nous a semblé important 
d'écrire quelques lignes sur les diffé- 
rents modes d’adressage du micro- 
processeur TMS 9900. Une bonne 
maîtrise de ces techniques est en 
effet indispensable lorsque l’on veut 
aborder ce langage de programma- 
tion. Avant d'analyser chaque mode 
d’adressage, et afin de ne pas mettre 
la charrue avant les boeufs, quelques 
généralités s'imposent. 


Notre TI-99/4A, comme tout micro- 
ordinateur normalement constitué, 
est composé d’un certain nombre 
d'éléments parmi lesquels nous trou- 
vons la mémoire, elle même divisée 
en deux grandes familles : 


e la mémoire vive (en anglais Ran- 
dom Acces Memory) dans laquelle 
seront stockées les données et ins- 
tructions constituant un  pro- 
gramme ; 


la mémoire morte (en anglais 
Read Only Memory) qui contient 
différents programmes figés. L'’in- 
terpréteur BASIC est un de ces 
programmes inaltérables, accessi- 
bles dès la mise sous tension du 
TI-99/4A. 


Ces deux types de mémoire consti- 
tuent la mémoire adressable. Le 
terme ‘adressable” s'explique lors- 
que l’on sait que la mémoire est divi- 
sée en plusieurs milliers de ’’cases” 
numérotées. 


Le microprocesseur va nous permet- 
tre de gérer ces adresses. Le TI- 
99/4A a été construit autour du mi- 
croprocesseur TMS 9900 qui est le 
cerveau” de notre ordinateur (”’cer- 
veau” est un bien grand mot puisque 
l'on sait que le plus puissant des or- 
dinateurs est à peu près aussi intelli- 
gent qu’un fer à repasser !). Le traite- 
ment des données ou informations 
situées en mémoire vive sera réalisé 
par le microprocesseur. Pour rendre 
ce travail possible, le programmeur 
devra lui indiquer l'adresse en mé- 
moire de l'information à traiter et la 
nature du traitement à appliquer. 
Dans ce but, les créateurs de notre 
TMS 9900 préféré ont prévu un jeu 
d'instructions qui constitue le ”lan- 
gage” assembleur. 


Qu'est ce que 
l’assembleur ? 
Le microprocesseur ne reconnaît que 


les codes binaires (base 2). La mani- 
pulation de ces codes n’est pas aisée 
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Les modes d’adressage 
en assembleur 


et un mode de communication plus 
humain s’est rapidement imposé. Ce 
système, c’est l’assembleur. 


L'assembleur est un langage à base 
de codes mnémoniques (seulement 
pour les anglophones, hélas !) ; l’as- 
sembleur est aussi un traducteur : il 
traduit ces codes binaires directement 
exécutables par le microprocesseur. 
Les codes mnémoniques constituent 
le code source et les codes binaires 
(ou machine) générés par l'assem- 
bleur constituent le code objet. 


Base 10 et base 16 


L'assembleur reconnaît deux systè- 
mes de numération : 


e Le système décimal (base 10) est 
utilisé par défaut. Nous le connais- 
sons bien puisque nous l'em- 
ployons tous depuis l’école mater- 
nelle ; 


Le système hexadécimal (base 
16), utilisé en TI Basic pour redéfi- 
nir les caractères ASCII (CALL 
CHAR), permet une représenta- 
tion concise des nombres binaires. 
Pour que l’assembleur puisse faire 
la différence avec les nombres dé- 
cimaux, les nombres hexadéci- 
maux doivent être précédés du 
signe ”’plus grand que” (>). Ainsi, 
7>A9” correspond à ‘”169” en 
décimal. 


Octets et mots 


Nous avons vu précédemment que la 
mémoire est constituée de plusieurs 
cases”. Chacune de ces cases est 
un octet (Byte en anglais). Chaque 
octet est composé de 8 éléments bi- 
naires (BIT pour Binary digiT en an- 
glais). Le microprocesseur TMS 9900 
peut adresser 65536 octets numéro- 
tés de O0 à 65535 (=>0000 à >FFFF 
en hexadécimal). Le TMS 9900 étant 
un microprocesseur 16 bits, il peut 
traiter simultanément deux octets. 
Dans ce cas, les deux octets ainsi 
adressés constituent un mot mémoire 
(Word en anglais). 


La mémoire de travail 


La mémoire de travail, aussi appelée 
zone de travail, est un groupe de 32 
octets soit 16 mots. Ces mots sont 
des registres de mémoire utilisés fré- 
quemment par le programmeur pour 
des stockages temporaires et par le 
microprocesseur pour l'exécution de 
certaines instructions. Ces registres 
n'ayant pas d'adresses absolues, le 
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programmeur doit indiquer l’adresse 
du premier d’entre eux. 


Les directives d’assembleur 
Ce sont des commandes destinées à 
faciliter le travail du programmeur. 
Elles permettent de donner des noms 
aux adresses mémoire, définir la 
zone de mémoire où se trouvera le 
programme, réserver des blocs de 
mémoire (tampon), etc... 


L’instruction MOVB 


Pour illustrer les différents modes 
d’'adressage, il est pratique de pren- 
dre l'exemple d’une instruction (code 
mnémonique). J’ai choisi l'instruction 
MOUB (MOVe Bvute) pour sa simpli- 
cité. Cette instruction réclame deux 
adresses, l'adresse source et l'adresse 
destination. MOVB copie la valeur 
contenue dans l'adresse source 
(octet) vers l’adresse de destination. 
L'adresse source n’est pas modifiée. 
Cette instruction ne traite que des 
octets mais une autre similaire 
(MOV) est prévue pour traiter des 
mots. Les deux adresses doivent être 
séparées par une virgule. 


Adressage des registres 
de mémoire de travail 


L'adresse du premier registre de la 
mémoire de travail doit être placée 
dans un des registres spéciaux inté- 
grés au microprocesseur. Celui-ci est 
baptisé ‘registre pointeur de mé- 
moire de travail”. L’instruction LWPI 
(Load Workspace Pointer Immediate) 
exécute cette opération. Par exem- 
ple : 

LWPI >A000 


charge la valeur >A000 dans le re- 
gistre pointeur. Les adresses des 16 
registres de mémoire de travail seront 
calculées automatiquement d’après 
cette valeur. Une commande de l’as- 
sembleur permet d’affecter à ces re- 
gistres les symboles RO à R1s. 
Notons pour mémoire que, par 
convention, on appelle AO le poids 
fort de l'adresse A000, et 00 le poids 
faible. Ainsi, de manière générale, le 
poids fort d’une adresse WXYZ est 
contitué par WX (octet de gauche) et 
son poids faible par YZ (octet de 
droite). 


TRES IMPORTANT : un registre de 
mémoire de travail est constitué de 
deux octets (16 bits). Si nous em- 
ployons une instruction qui ne traite 
qu’un octet (comme MOVB), l’octet 
adressé sera toujours l’octet de poids 
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fort alors que l’octet de poids faible 
restera inchangé. 


Un petit exemple : 


Le registre RO contient la valeur 
>0000 et le registre R1 contient la 
valeur >12AA. Exécutons l’instruc- 
tion suivante : 


MOUB RO,R1 


Le registre RO n’est pas modifié et le 
registre R1 contient maintenant la va- 
leur >O0AA. l'octet de poids faible 
(octet de droite) du registre R1 n’a 
pas changé. 


Adressage indirect 

par l’intermédiaire 

d’un registre de mémoire 
de travail 


Avec le mode indirect, il est possible 
d'adresser un octet ou un mot en 
fonction de la valeur contenue dans 
un des registres de mémoire de tra- 
vail. Dans ce cas, celui ci doit être 
précédé d’un astérisque (x). 


Dans l'exemple suivant, l’octet 
source est adressé par le mode regis- 
tre de mémoire de travail et l’octet 
destination par le mode indirect. Il 
est donc possible de combiner deux 
modes d’adressage différents. 


Exemple : 


e Le registre RO contient la valeur 
>FF00 

e Le registre R1 contient >AA88 

e L’octet situé à l'adresse AA88 
contient >1F 


Si l’on exécute l'instruction : 
MOUB RO, *R1 


une copie du contenu de l’octet de 
poids fort du registre RO est reportée 
dans l’octet dont l'adresse est située 
dans le registre R1. 


Les registres RO et R1 n'ont pas 
changé alors que l'octet situé à 
l'adresse >AA88 contient maintenant 
la valeur >FF au lieu de >1F. 


Adressage indirect 

par l’intermédiaire 

d’un registre de mémoire 
de travail 
auto-incrémenté 

Ce mode d’adressage est similaire à 
celui évoqué ci-dessus avec en plus 
une auto-incrémentation du registre. 
Après exécution, le microprocesseur 
ajoute automatiquement 1 au registre 


si l'instruction traite un octet ou 2 si 
elle traite un mot. 


Ceci est très pratique lorsqu'il faut 
manipuler plusieurs octets ou mots 
dont les adresses se suivent. 


Le registre doit être précédé d’un as- 
térisque (x) et suivi du signe ”’plus” 
). 


Exemple : 


e Le registre R5 contient la valeur 
>1000 

e Le registre R8 contient >B000 

e L’octet situé à l'adresse >B000 
contient >00 


Si l’on exécute l'instruction : 
MOUB R5,*R8+ 


une copie de l’octet de poids fort du 
registre R5 est reportée dans l’octet 
dont l’adresse se trouve dans le re- 
gistre R8. L'’octet situé à l'adresse 
>B000 contient la valeur >10 au 
lieu de >00. Le registre R8 contient 
maintenant >B001 et ”’pointe” ainsi 
“sur l’octet suivant. 


Adressage symbolique 
(direct) 


L’assembleur offre la possibilité d’af- 
fecter des symboles aux adresses. Un 
symbole peut contenir jusqu’à 6 ca- 
ractères (2 pour l’assembleur ligne 
par ligne de la mini-mémoire) et doit 
être précédé du signe ’’arrobas” (@). 
Le premier caractère doit avoir un 
code ASCII compris entre 65 et 9C 
(une lettre majuscule). Les caractères 
suivants peuvent être des lettres ma- 
juscules ou des chiffres. Les directi- 
ves (commandes) d’assembleur BSS, 
BES, PEND, EQU, BYTE, DATA et 
TEXT permettent l'affectation de 
symboles aux adresses. 


NOTE : Les directives BES, PEND et 
BYTE ne sont pas utilisables avec 
l'assembleur ligne par ligne de la 
mini-mémoire. 


Exemple : 


e Le symbole SYMBI1 est affecté à 
l'adresse >F000 

e Le symbole SYMB2 est affecté à 
l'adresse >FF00 

e L’octet situé à l'adresse >F000 
contient la valeur >7C 

e L’octet situé à l'adresse >FF00 
contient >1A 


Si l’on exécute l'instruction : 
MOVB @SYMB1,@SYMB2 


une copie du contenu de l’octet situé 
à l'adresse >F000 est reportée dans 
l’octet situé à l'adresse >FF00. L'oc- 
tet situé à l'adresse symbolique 
SYMB2 contient maintenant la valeur 
>7C alors que celui situé à l’adresse 
SYMB1 n’a pas changé. 


Notons que nous aurions obtenu les 
mêmes résultats avec l'instruction : 


MOUB @>F000,@>FF00 


Adressage symbolique 
indexé 


L'adresse n’est plus obtenue directe- 
ment comme ci-dessus mais en ajou- 


tant à l'adresse symbolique la valeur 
contenue dans un pointeur (index). 
Un registre de mémoire de travail est 
utilisé comme pointeur. 


TRES IMPORTANT : Le registre de 
mémoire de travail RO ne peut pas 
être utilisé comme pointeur. 


Le registre doit être placé entre pa- 
renthèses à la suite de l’adresse sym- 
bolique. 


Exemple : 


e Le registre R5 contient la valeur 
>AAO0 
e Le registre R1 contient >0008 


Exécutons l'instruction : 
MOUB R5,@>B000(R1) 


Une copie du contenu de l’octet de 
poids fort du registre R5 est reportée 
dans l’adresse calculée en ajoutant la 
valeur contenue dans R1 à >B00OO. 
L'octet situé à l'adresse >BO08 
contient maintenant la valeur >AA. 


En supposant que le registre R1 ait 
été égal à zéro, l'instruction : 
MOUB R5,@>B000 


aurait été équivalente à l'instruction 
précédente puisque >B000 + 
>0000 = >B000. 


Adressage immédiat 


Les instructions qui utilisent ce mode 
d’adressage ne traitent que des mots 
et se terminent toujours par la lettre 
IL LWPI, rencontrée précédemment, 
fait partie de cette famille. Le mot 
adressé est situé immédiatement 
après le code mnémonique. 


L’instruction LI (Load Immediate) 
charge immédiatement une valeur 
dans un registre de mémoire de tra- 
vail. Par exemple, l'instruction : 


LI RO,>1800 


charge immédiatement 
>1800 dans le registre RO. 


la valeur 


Autres modes 
d’adressage 


Avant de conclure cet article, il faut 
signaler l'existence de deux autres 
modes d’adressage : 

e l’adressage relatif, employé pour 
les sauts conditionnels (tests) ; 

e l’adressage de l'unité de commu- 
nications, employé pour les en- 
trées/sorties (unités de disquettes, 
imprimantes, etc…..). 


Nous ne nous étendrons pas sur ces 
modes d’adressage qui sont sensible- 
ment plus complexes que ceux ana- 
lysés dans cette première initiation. 
Nous aurons l’occasion d'en parler 
dans un prochain article. 
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NDLR: Ce programme est une 
contribution de Monsieur Laurent 
Desobelle, un de nos lecteurs assi- 
dus, et fait suite à notre petit jeu ’A 
vos claviers”. Comme promis, Lau- 
rent reçoit un abonnement d’un an 
avec les cassettes d’accompagne- 
ment. 


Nous avons choisi ce programme, 
écrit en Basic TI, pour son gra- 
phisme très soigné. Nous imaginons 
facilement les nombreuses heures qui 
ont été nécessaires pour la représen- 
tation de la carte de France. 


Ce programme comportait, lorsque 
nous l’avons reçu, quelques défauts, 
et nous nous sommes permis d'y ap- 
porter les modifications nécessaires. 
Dans un but pédagogique, nous vous 
livrons la version que nous a envoyé 
notre ami ainsi que la version corri- 
gée. Vous pourrez ainsi comparer les 
deux programmes et peut-être éviter 
certaines erreurs. 


Modifications apportées 
au programme 


Couleurs : les caractères étaient en 
blanc sur gris et nous avons préféré 
les faire passer en vert foncé sur 
jaune clair afin d'obtenir un meilleur 
contraste. 


Protection des saisies : au mo- 
ment de la conception d’un pro- 
gramme, il faut toujours penser qu'il 
pourrait être utilisé par quelqu'un 
d'autre ou, qui plus est, par une per- 
sonne qui touche à un ordinateur 
pour la première fois. Il est donc né- 
cessaire de guider l'utilisateur et 
d'éviter un éventuel ”’plantage” du 
programme par pression d’une tou- 
che ‘inadéquate”. C’est pourquoi 
nous avons modifié le segment de 
programme chargé du choix du ni- 
veau de jeu. 


XAOK OK HACK AO OI ICE 
X GEOGRAFHIE * 
RAA ANR ON OK EX 
x TI BASIC * 
CET T TT EST TT TRE) 
X COPYRIGHT * 
L LAURENT * 
X DESOFRELLE * 
* ET * 
X 99 MAGAZINE * 
AOK HACK HCAONHONOK CAO ACK 
XX DERUT FARTIE X% 
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Tirage aléatoire des villes : dans 
la version de base, une ligne de 
DATAs est choisie de façon aléatoire 
et les villes apparaissent ensuite sé- 
quentiellement, ce qui peut donner 
au programme un aspect répétitif. 
Dans la version modifiée, les villes 
sont choisies par une boucle FOR- 
NEXT dans laquelle la variable d’arri- 
vée contient une valeur aléatoire. 


Fin de programme : pour sortir du 
programme et ainsi avoir le résultat 
du jeu (note), il fallait poursuivre jus- 
qu’à la fin de la liste des DATAs. Il 
est maintenant possible d'arrêter le 
programme en appuyant sur la tou- 
che ”’égal” (=). 


Suppression des ELSE inutiles : 
en Basic TI, le ELSE est rarement 


CALL CLEAR 
RANDOMI ZE 


Géographie 


Laurent Desobelle 


utile après un IF-THEN. Nous les 
avons donc supprimés car il encom- 
braient la mémoire inutilement et ra- 
lentissaient le programme. 


= 


Suppressions des ”0” à la fin des 
DATAs destinés aux instructions 
CALL CHAR : lors de la redéfinition 
d’un caractère par l'instruction CALL 
CHAR, les 0” en fin de redéfinition 
sont inutiles car rajoutés automati- 
quement par défaut. j 


Ces modifications permettent d’amé- 
liorer un programme déjà très inté- 
ressant. Si, comme moi, vous n'êtes 
pas particulièrement fort en géogra- 
phie, ce programme vous permettra 
d'améliorer sensiblement vos 
connaissances. 


CALL CHAR (158, "1898FF2DXCECE 404") 
CALL CHAR (159,"1819FFECIC3C272") 
DIM CA(18,11) 

CALL SCREEN (17) 


FOR Q=1 TQ 


16 


CALL COLOR (0, 13,12) 


NEXT (] 
Q=û 


W$="CE FROGRAMME FERMET 
CONNAISSANCES EN 


DE TESTER 
GEOGRA 





23 


24 


PHIE" 

330 P=2 

340 A=15 

Z50 GOSUB 790 

60 F=0 

370 DIM D(? 

380 DIM 842) 

390 PRINT "CHOISISSEZ VOTRE FORCE": 
RAT": "D=MOYEN" : “E=DEBUTANT 

400 CALL KEY(O,HEY, STATUS) 

410 IF (KEY{49)+{KEY»51) THEN 400 
420 CALL CLEAR 

43ù GOSUE 1420 

440 SCD=FHEY-48 

450 REM * FICHIER VILLES 4 

46G DATA CALAIS, 3,25, MONTPELLIER, 18,25, 
NNECY, 13,27, BOULOGNE-S-M, 4,22, TOULON, 18, 

27, BIARRITZ, 17,19,NANTES, 10,19 © 

470 DATA BREST,8, 17, : VERSAILLES, 7, 23, CHAR 
LEVILLE-MEZIERES, 5 AIX-EN-PROVENCE, 18 
.26,LE HAVRE, 5, 21 CANNES, 18,78 

480 DATA CHEREQURG, 6, 20, ROANNE, 13,25, ARR 
45,4, 24, TOURS, 10,21, GRENOBLE, 14,26, CHALO 
NO-S-MARNE, 7, 25, NANCY, 7,27 

390 DATA LA ROCHELLE, 13, 20,CAEN, 6, 21,STR 
ASROURG,8,28,S8T BRIEUC, 7, 18, EQURGES, 11,2 
3, QUIMPER, 8, 17, AMIENS, 5,2% 

500 DATA LORIENT, 9,18, ROUBAIX, 4,74, BORDE 
AUX, 15,70, BELFORT, 10,28, FERPIGNAN, 19,74, 


“1=FO 


20; 


LE MANS, 9,21, MARSEILLE, 18,7 


510 DATA LIMOGES, 13,22, ROUEN, 6, 22, ORLEAN 

LILLE, 4,74,POITIER, 12,21, MULHOUSE 
,9,28,ST-ETIENNE, 14,25 

SO DATA PARIS, 7,23, ANGQULEME, 13,71,REIM 

3,7,25,CLERMONT-FERRAND, 13,24,METZ,7,27, 

CHATEAUROUX , 11,21, NEVERS, 11,24 

SH0 DATA RENNES, 8, 19, AGEN, 16,71, BESANCON 
10,27, MONTAUBANT, 17,22, CHAMBERY, 15,76, R 

LOIS, 10,27, CHALON, 11,26 

S4G DATA TOULOUSE, 18,227, TROYES, 8,25, ANGE 

RS, 10,20, ALRIT, 17,23, DIJON, 10,26, NIMES, 1 
7,25, MACON, 12,26, VALENCE, 15,24 

SSo DATA FERIGUEUX, 15,21, LYON, 13,26 

REM *EOUCLE PRINCIFALEX 

RESTORE 440 

CALL HCHAR(E, 4 

CALL HCHAR(21,4,22, 20) 

SO NX=INT (RNDKGS) +1 

810 NES=NES+1 

&20 FOR M=i TO NX 

630 READ W$,Y,L 

640 NEXT M 

850 CALL HCHAR(Z1,3,: 

640 SC=0 

670 F=4 

680 A=?1 

690 CA(Y-2,U-17)=1 

700 GOSUB 790 

710 GOSUR 900 


Durs 


8,9,23, 


iQ 
70 
0 
490 


7 49; 
, 32,12) 


2 23) 


720 GOTO 570 
750 KEM * RESULTAT FARTIE * 
740 CALL CLEAR 
750 PRINT TAR(S) 3: "LA PARTIE EST FINIE": 
5 5 5 5 ss TAR(S) : "VOTRE FOURCENTAGE":TAR( 
#5) ; "DE REUSSITE" 
760 PRINT TAR(S): 
ES 
770 END 
780 REM *X DISFLAY AT * 
790 FOR I=1i TO LEN(W#) 
800 CALL HCHAR(A,P,ASC(SEGS (WE, I, 1))) 
810 F=P+1 
RQ IF P: 
830 NEXT I 
40 RETURN 
850 F=2 
S60 AzAâ+i 
870 GOTO 830 
ARC REM * DEFLACEMENT ET * 
890 REM * TEST CASE RONNE # 
900 FO=û 
910 S(1)=18 
920 D(1)=17 
930 S(2)=18 
G40Q D(2)=17 
950 F=x? 
960 CALL HCHAR(S(1),D(1),158) 
G70 CALL KEY (3, KEY, STATUS) 
980 CALL HCHAR(S(1),D(1),159) 
990 IF STATUS=0 THEN 960 
1000 IF FEY=61 THEN 740 
1010 IF KHEY::69 THEN 1030 
1020 S(1)=S(1)-1 
1030 IF KHEYS:93 THEN 1050 
1040 D(i)=D(1)-1 
1050 IF KEY<5:68 THEN 1070 
1060 D(1)=D(1)+1 
1070 IF FEY<508 THEN 1090 
1080 S(1)=S(1)+1 
1090 CALL HCHAR(S(Z),D (2) ,F) 
1100 CALL GCHAR(S(1),D€(1),F) 
1110 CALL HCHAR(S(1),D4(1),158) 
1120 S(2)=5(1) 
1130 D(Z3)=D(1) 
1140 IF KEY£5135 THEN 9éû 
1150 IF CA(S(1)-2,D(1)-17)=1 THEN 1710 
1160 W$= "ERREUR" 
1170 CALL SOUND (200,-73,10) 
1180 CALL HCHAR CZ, 3,32, 10) 
1190 F=4 
1200 A=T 
1210 GOSUR 790 
1220 FO=PO+1 
1230 SC=SC+1 
1240 CALL HCHAR (A, P+1,158, FO) 
1250 CALL HCHAK(S(1),D(1),F) 
1260 IF SC<:SCD THEN 1300 


1270 X=32 


"EST DE :"; (100%0) / (NES 
: "FOUR REJOUER TAFER RUN" 


AVE 
Lt 


THEN 850 





):) MAGAZINE 


Z80 
1290 
1500 
1310 
1520 
1330 
1540 
1350 
1360 
1:70 
1:80 
1:90 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 


GOSUR 1920 

RETURN 

GOTO 910 

W$="ERRAVO" 

CALL HCHAR (SZ, 3,32, 10) 

O=0+1 

F=4 

A=3 

GOSUR 790 

FOR I1=0 TO Z300 

NEXT I 

CALL HCHARIS(1),D(1),F) 

RETURN 

REM *X TRACE CARTE * 

RESTORE 1500 

FOR W=Z3 TO 62 

IF W£:45 THEN 1460 

GOTO 1490 

READ Q$,E,R 

CALL CHAR (W,0$) 

CALL HCHAR(E,R, W) 

1490 NEXT UW 

1500 DATA 00001C2444548281,3,23,0102040S 
04040201,4,22,01070C10608,5,22, 
O07080R,S,21 

1510 DATA 13103E03FE00COC, 6,21, E597088868 
140404 ,6,20,40404040402010F,7,20,0000000 
NOOO0COLT, 7,19 


O13EC08,7, 17, 8C6C2010E084700F,8, 17,80402 
41008040201,9,18 

1520 DATA CO4CCC807906784, 10,19, 20702020 
10101008, 11,19,0404020101010201,1%, 19,98 
SR202010100808, 13, 20 

1540 DATA 0878445452444986, 14,20, 0101030 
2072070507, 15, 19,02072020204040404, 16, 19,0 
808080810101511, 17,19 

1550 DATA 22CCR07808101E01, 18, 19,C020100 
8040201 « 19 n 20 A OGOCGOC OOGOAOOQEFC : 19 n 21 3 0000 
OOOO0EO1COZ, 19,22 

1560 DATA CO2807,270,27, 1008F, 20, 24, 08282 
0100808C8C8, 19,24,0000010204080808, 18, 74 
1570 DATA D120DC0S, 18,25 

1580 CALL CHAR (64, "OSR3S093330C0201 ") 
1590 CALL HCHAR (18, 26,64) 

1600 FOR W=91 TO 155 

1610 READ Q$,E,R 

1620 CALL CHAR (W, 0%) 

1630 CALL HCHAR(E, RW) 

1640 NEXT W 

1850 DATA 00000000606704F8, 18,27,0848102 
0408, 18, 28,0101090206686808, 17,28, 204080 
804020100€, 16,28 

1660 DATA BG4040202010101,15,28, 80601010 
1020408, 14,28, 0403410204040281, 17,27,202 
OC898A4A4C484, 12,27 

1670 DATA 010106080810107, 11,27, 0808881 0 
E0B0408, 10,28, 0808081008686808, 9,28.E018 
060102060808, 7,28 


CX)MAGAZINE »° 3 


1680 DATA 3474040408080808, 8, 28, 0020D010 
10080007, 6, 27,80422518,6, 26, 800245493A02 
0209,5,25 

1490 DATA 8898680464620121,4,74,804021127 
OCO00C0C, 5, 2 

1700 DATA G00000CZ2AZ707808, 6,27, 080403, 7 
y 22 "+ OLOROG7IGEOEZESS, 7, 25, 00000000 10608 


1,6.23 


8,25, 002C5481,7,24,CO0C0008044700804, 7, 2 
170 DATA COCOOONNON0ONCOC, 7,27, 1090000000 
0000606,8,19,011A1A04CC33, 10,20,04040E17 
20C0808,9,21 

1730 DATA GO0000OCOCC12418,10,21,0804070 
RGAO8OA402, 11,21, 000000804020701,11,22,10 
CEO2020501,12,22 

1740 DATA G1040R3240807807, 10,22, 04860584 
RZ924741, 11,273, 0000000000ZOS, 15,21 

1780 DATA 2050001 028444381,9,25,24102824 
2444424?, 11,24,80808040404020?, 10,724,414 
120201010101,12,24 

1760 DATA D80810D0D008101,13,24, 00008080 
4040207, 12,25,105010202010101,13,275,2020 
568588080402, 14,25 

1770 DATA 0202040201010101,12,21,8040487 
00606, 13,72 

1780 DATA DO0G000007B8RÉOICI, 17, 20, ROGOSOR 
OROBOAOG, 17,26, 06051C1A0E0EO101, 15, 20, 8û 
&011161R0A0807,16,Z1 

1790 DATA O0ZOCE, 16,72, 808082484926201, 1 
74 224 0000070801 ,17,23, 02000877, 15,41 
1800 DATA O2020171230404C8, 17,25, 0000000 
QC12210,17,2 

1810 DATA G101010202020202, 16, 25, PAGCOS 
OA08SO0808, 15,26, R480808784888B88R, 14,26, 00 
Q00408D0D020C, 10,27 

1820 DATA 364960911200, 14,27,8182819995F 
SA2E, 13,26, 09000C107040204, 11,26,00010270 
2046486404, 10,26 

1830 CALL GCHAR(7, 22, 6) 

1840 CALL HCHAR(S, ZT, Gi 

1850 CALL HCHAR(18, 22,138) 

1860 CALL HCHAR(1,2,128, 30) 

1870 CALL HCHAR (24,2, 158,30) 

1880 CALL VCHAR(1,232,159,24) 

1890 CALL VCHAR(1,2,159,274) 

1900 RETURN 

1910 REM *% SOLUTION * 

1920 FOR Z=18 TO Y STEF -1 

1930 CALL HCHAR(Z+1,17, X) 

1940 CALL GCHAR(Z, 17, X) 

1950 CALL HCHAR(Z,17,158) 

1960 NEXT Z 

1970 FOR Z=18 TO LU 

1980 CALL HCHAR(Y,2Z-1,X) 

1990 CALL GCHAR(Y,2Z,X) 

2000 CALL HCHAR (Y, 2,159) 

2010 NEXT Z 





pi 


26 


2020 
POSO 
2040 
2050 
P080 
2070 


FOR TF=1i TO 50 
CALL HCHAR(Y,Z-1, 
CALL HCHAR(Y, 2-1, 
NEXT TF 

CALL HCHAR (Y, 2- 
RETURN 


128) 
159) 


Le X 


Version originale 


100 REM Xi NO I OO OI OC 
110 REM COPYRIGHT 99 MAG- 
120 REM ET 

130 FEM LAURENT DESORELLE 
140 REM KKKAHKXEMENIERRRYE 
150 REM  KKXKAKENERANNEX 
UT FARTIE 


GER 
AN AONOHOK NOK NO OK A 


160 
176 
18û 
170 
200 
210 


220 


CALL CLEAR 
CALL CHAR (158, 
CALL CHAR (159, 
DIM CA(18,11) 
CALL SCREEN (15) 

FOR O=1 TO 14 

CALL COLOR (QG, 16,15) 
220 NEXT Q 

40 Q=0ù 
So W$= 
Vos 
PHIE" 
260 
270 
280 
F0 


MIRGRFFIDECICE464") 
“1819FFRCSCICE7 20") 


"CE PROGRAMME FERMET 
CONNAISSANCES EN 


DE TESTER 
GEOERA 


A=iT 

GOSUR 950 

Fziû 

AG DIM DZ) 

10 DIM S(2) 

Laits PRINT "CHOISISSEZ VOTRE FORCE": "1=FQ 
ART: MZSMOYEN": CESDERUTANT 
ASC CALL FEY{IO,KHEY, STATUS) 
F40 M=M+1 

A0 IF STATUS=O THEN ZFEG 
A0 CALL CLESA 

A7 GOSUR 1540 

290 SCD-FEY-48 

A5 RANDONIZE M 

400 R= INT (RNDX 10) +1 

410 ON F GOTO 425,44û,460,480, 500,220, 54 
©, 560, 580,600 

420 RESTORE 620 

430 GOTO 730 

440 PMESTORE 630 

450 GOTO 730 

40 FESTORE 640 

470 GOTQO 730 

RQ RESTORE 650 

490 GOTO 7:30 

00 RESTORE 6609 

210 GOTO 730 

120 FESTORE 4670 

230 GOTO 730 


RESTORE 480 

GOTO 730 

RESTORE 690 

GOTO 730 

RESTORE 700 

GOTO 730 

RESTORE 710 

REM M HO AO OK 
IER VILLE [ETTTTTI1111111 
620 DATA CALAIS, 3,23, MONTPELLIER, 18,25,A 
NNECY, 13,27, BOULOGNE-S-M, 4,22, TOULON, 18, 
27, BIARRITZ, 17,19, NANTES, 10, 19 

630 DATA BREST.8, 17, VERSAILLES, 7,23, CHAR 
LEVILLE-MEZIERES,S,25,AIX-EN-FROVENCE, 18 
.26,LE HAVRE, 5,21, CANNES, 18,2 

&40 DATA CHERBOURG, 6, 20, ROANNE, 13,25, ARR 
A5, 4,24, TOURS, 10,21, GRENOBLE, 14,26, CHALO 
NS-S-MARNE, 7,25, NANCY, 7,27 . 

650 DATA LA ROCHELLE, 13,20, CAEN, 6, 21,STR 
ASRQURG, 8,28,ST BRIEUC, 7,18, BOURGES, 11,2 
3, QUIMPER, 8, 17, AMIENS, 5,23 
6bû DATA LORIENT, 9,18,ROUEAIX, 4,24, BORDE 
AUX, 15,20, BELFORT, 10,28, PERFIGNAN, 19,24, 
LE MANS, 9,21, MARSEILLE, 18, 26 
&70 DATA LIMOGES, 13,22, ROUEN, 6, 22, ORLEAN 
3, 9,22, LILLE, 4,24,POITIER, 12, 21, MULHOUSE 

9,28, ST-ETIENNE, 14,25 
&80 DATA PARIS, 7,23, ANGOULEME, 13,21,REIM 
8,7,25, CLERMONT-FERRAND, 15,24, METZ,7,27, 
CHATEAUROUX , 11,21,NEVERS, 11,2 
690 DATA RENNES, 8, 19, AGEN, 16, 21, RESANEON 


“O0 
520 
360 
270 
380 
270 
600 


610 FICH 


10 427x MONTALIBANT , LE PNA 13,26,BR 
LOIS, 10,22, CHALON, 11, 
700 DATA TOULOUSE, 18,22, TROYES, 8, 25, ANGE 


RS, 10,20, ALEIT, 17,23, DIJON, 10,: 

7,25, MACON, 12,26, VALENCE, 15,26 
710 DATA FERIGUEUX, 15,21, LYON, 13,26,FIN, 
1.4 

720 REM KKKXXKKEEEEXAENANE EQUC 
LE FRINCIFALE X KOK AOC K ON OK OO 
XX 

7:30 
740 
70 
780 
770 
780 
7%0 
RGO 
10 
820 
RQ 
840 


26, NIMES, 1 


FOR M=i TO 66 
READ W$,Y,L 
IF W$<>"FIN" 
RESTORE 620 
GOTO 850 

CALL HCHAR(21,3,32,2%) 
SC=0 

P=4 

CA(Y-2,U-17)=1 

GOSUE 920 

GOSUE 1050 

950 NEXT M 

860 REM HO RITENRK 
LTAT PARTIE 


THEN 780 


RESU 
LETETT ETS ETTEITIE 


870 CALL CLEAR 
880 PRINT TAR(S):;"LA FARTIE EST FINIE": 


J)macazme n°: 


: 5 + 2 : TAB(S) ; "VOTRE POURCENTAGE": TAR( 

5); "DE REUSSITE" 

890 Y=(100%0) / (M-1) 

900 PRINT TAR(5);"EST DE :"3Y; "4": 

“POUR REJOUER TAPER RUN" 

910 END 

920 REM XKXkOONEX 

RINT AT 

920 FOR I=1 TO LEN(W$) 

940 E$=SEG$ (W$, I, 1) 

950 O=ASC (E$) 

960 CALL HCHAR(A,P, 0) 

970 P=P+i 

980 IF P>23 THEN 1010 

990 NEXT I 

1000 RETURN 

1010 

1020 A=A+1 

1070 GOTO 970 

1040 REM XHKkOOD ONX SF 

DEFLACEMENT ET TEST CASE BONNE 
AO AIO OO OX 


SP F 
LAIT I 11111112 


7 
de 


1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


PO=0 
S(1)=18 

D(1)=17 

G(2)=18 

D(2)=17 

F=32 

CALL HCHAR(S(1),D(1),158) 
CALL KEY(3,KEY, STATUS) 

CALL HCHAR(S(1),D(1),159) 

IF STATUS=0 THEN 1110 

IF KEY=69 THEN 1160 ELSE 1170 
S(1)=8(1)-1 

IF KEY=83 THEN 1180 ELSE 1190 
D(1)=D(1)-1 

IF KEY=68 THEN 1200 ELSE 1210 
D(1)=D(1)+1 

IF KEY=88 THEN 1220 ELSE 1220 
220 S(1)=8(1)+1 

1230 CALL HCHAR(S(2),D(2),F) 

1240 CALL GCHAR(S(1),D(1),F) 

1250 CALL HCHAR(S(1),D(1),158) 
1260 S(2)=8(1) 

1270 D(2)=D(1) 

1280 IF KEY=13 THEN 1290 ELSE 1110 
1290 IF CA(S(1)-2,D(1)-17)=1 THEN 1450 E 
LSE 1300 

1200 W$="ERREUR" 

1310 CALL SOUND (200, -3, 10) 

1320 CALL HCHAR(3,3,32,10) 

1330 P=4 

1340 A=3 

1250 GOSUR 930 

1360 FO=FO+1 

1370 SC=6C+1 

1380 CALL HCHAR(A,P+1,158,F0) 

1390 CALL HCHAR(S(1),D(1),F) 

1400 IF SC<>SCD THEN 1440 


CC) MAGAZINE »° 3 


1410 X=3Z 

1470 GOSUR 2640 

1430 RETURN 

1440 GOTO 10460 

1450 WB="ERAVO" 

1460 CALL HCHAR IS, 3,32, 10) 
1470 O=0+1 

1480 F=4 

1490 AZ 

1500 GOSUR #70 

1510 CALL HCHAR(S (1),D(1),F) 
1520 RETURN 

LRO REM KKXEMAAEU AN NOUX 
TRACE CARTE ET FICHIER 
KHAN K INR ERERNX 

RESTORE 14650 

FOR W=ES TO &E 

IF W£:45 THEN 1580 

GQTQ 1410 

READ O$,E,R 

CALL CHAR (HW, Q#) 

CALL HCHAR(IE,R,UWi 

NEXT W 

DATA Q000102444548281,73,23, 01020405 


Ds ae ve 00 


1540 
1530 
1560 
1570 
1580 
1590 
1400 
1610 
1620 


16206 DATA 13103E03FE00COCO, 6,21 ,E0908846 
81404046, 6,20, 46404040402010F0,7,20,0000 


1640 DATA GOGGGHICEZO10002,7,18, 
O13ECO80, 7,17,8C6C2010E084700F,8, 17,040 
241008040701,9,18 nos 
16450 DATA CO4CCC80790467840, 10,19,2020707 
G10101008,11,19,0404020101010201,17,19,9 
858202010100808, 17, 20 Mr 
1665 DATA 0828645452444986, 14,20,0101070 
2020708505, 15,19,0202020204040404,16,19,0 
808080810101511,17,19 
1670 DATA S2CCRO7808101E01,18,19,C020100 
804020100,19,20,000000000007FC06,19,21,0 


000010204080808, 18, 24 

1690 DATA D120DC0300000000, 18,25 

1700 CALL CHAR (64, "OZSRES0922%0C0201") 
1710 CALL HCHAR(18,26, 64) 

1720 FOR W=91 TO 155 

1730 READ O$,E,R 

1740 CALL CHAR (WU, 0%) 

1750 CALL HCHAR(E,R,W) 

1760 NEXT W 

1770 DATA 00000000606204F8, 18,27, 0848102 
040800000, 18, 28,0101090206686808, 17,28, 2 
Q40B0BO4O20100€, 16,2 

1780 DATA 8040402020101010,15,28,8060101 
0102004080, 14,28, 0407410204040281, 13,27,2 
O20C898A4A4C484, 12,27 

1790 DATA O101060808101020, 11,27, 0B08881 





27 


28 


0E0B040B0, 10, 28, 0B0BOB1008686808, 9, 28, E0 
18060102060808, 7,28 nu: 
1800 DATA 2434040408080808, 8, 28, 0020D01 Q 
10080C07, 6,27, 8047251800000000, 6, 26, 8087 
4549%A020209,5, 75 in 
1810 DATA B898680464620171,4,74,80407112 
OCO00C0C, 5, 2% 

1820 DATA 000000C7A7707808, 6, 22, 08040700 


1820 DATA Q01E22C300000000, 8,24, 06000000 
FG403008,8, 25, 002CS5A8100000000,7,24,C0CûQ 
008044700804, 7,25 


00000606, 8, 19,011A1A04CC330000, 10,70,040 
40R1770C08080, 9, 21 nn 
1850 DATA 0000000C0CC12618, 10,21,0804070 
B0A080407, 11,21,00000080407202010, 11,22, 1 
OOEGRORO ES 10000 125 Fa | | | 
1860 DATA 0106087740807807, 10, 27,C460584 
3,21 
1870 DATA 3020001028444281 ,9, 2%, 24107824 
24444742, 11,24,8080804040402020, 10,24, 41 
41202010101010, 12,24 LS 
1880 DATA 080810D0D0081010, 13,24, 0000808 
0404072070, 12,25,1050107020101010,13,25,2 
020585880804020, 14,75 
1890 DATA 0202040201010101,12,21,8040487 
0060860000, 13, 27 71012 
1900 DATA 0000000078860101, 17,20, 8080808 
OB080A080, 12,26, 06081C1A02020101, 15,20, 8 
060111618040807, 16,21 
1910 DATA 002%0CE0000000000, 16,22, 8080B24 
8492642010, 17,22, CRO100000, 17,23, 0 
POORR7 7000000100 x 15 A 21 | 


1920 DATA 020201713%0404C8, 17,25, 0000000 
QC1221C00, 17,26 

1930 DATA 0101010202020207, 16,25, 70A0CO8 
OA0B08080, 15, 26, R4B80BO0BTS4888B8E, 14,26, 0 
Q000408D0D020C0, 10,2 

1940 DATA 2364496091120C0000, 14,277,8182819 
99SFEBPRO, 13, 26, 090A0C1020A07040, 11,26, 0 
0010702046486404, 10,2 

1950 CALL GCHAR(7,22,6) 

1960 CALL HCHAR (8,23, G) 

1970 CALL HCHAR(18,22,128) 

1980 CALL HCHAR(1,2,158, 30) 

1990 CALL HCHAR(24,2,158,30) 

2000 CALL VCHAR(1,32,159,24) 

2010 CALL VCHAR(1,2,159,274) 

2020 RETURN 

2020 REM XX ONE sF 
SOLUTION LALLTTLELT ETS: 
FOR Z=18 TO Y STEP -1 

CALL HCHAR(Z+1,17,X) 

CALL GCHAR(Z,17, X) 

CALL HCHAR(Z, 17,158) 

NEXT Z 

FOR Z=18 TO U 

CALL HCHAR(Y,Z-1,X) 

CALL GCHAR(Y,Z, X) 

CALL HCHAR(Y,Z,159) 

NEXT Z 

FOR TP=i TO Sû 

CALL HCHAR(Y,2Z-1,158) 

CALL HCHAR(Y,2Z-1,159) 

NEXT TF 

CALL HCHAR(Y,Z-1,X) 

RETURN 


2050 
2080 
2070 
2080 
2090 
2100 
ZA\Q 
2120 
2130 
2140 
2150 
216 
2170 
2180 
21970 


Une touche ”’RESET” sur le TI-99/4A 


Jean-Luc Bazanegue 


ATTENTION : Toute intervention 
sur le TI-99/4A entraîne la cessation 
de la garantie accordée par Texas 
Instruments France. Ceux qui effec- 
tuent la modification indiquée ci-des- 


FAÏS ATTENTION, 
J'Ai CONSTRUIT {3 


sous le font donc à leurs risques et 


périls. 


Tous ceux qui utilisent un TI-99 se 
sont aperçu, ou s’apercevront un 


jour, que la touche ”’RESET”, pré- 
sente sur de nombreux micro-ordina- 
teurs, fait parfois cruellement défaut. 
"99 Magazine” vous propose donc 
de combler par vous-même cette la- 
cune. Avant ‘’’d’opérer”, voyons à 
quoi peut nous servir cette touche. 


Dans certains cas, pour reprendre le 
contrôle de l'ordinateur, il faut le 
mettre hors tension. Cette solution 
n’est pas très élégante et peut provo- 
quer des réactions imprévisibles du 
côté des périphériques. De plus, lors 
de la mise au point d’un programme 





en assembleur, le fait de couper l’ali- 
mentation détruit tout ce qui se trou- 
vait en mémoire au moment où l’or- 
dinateur a repris son indépendance. 
La touche ”RESET” laisse de gran- 
des chances de détecter une 
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’bogue” éventuelle, en allant fouiller 
dans la mémoire. 


Une pression sur cette touche donne 
apparemment le même résultat que 
"QUIT” en Basic, mais des différen- 
ces importantes séparent ces deux 
systèmes. La touche ”’QUIT” (FCNT 
=) fonctionne par logiciel. A chaque 
fois que l’interpréteur exécute une 
ligne de programme, il scrute le cla- 
vier afin de déterminer si cette tou- 
che est enfoncée. Le temps de ré- 
ponse est souvent relativement long 
et cette méthode n’est pas toujours 
efficace. La touche que nous vous 
proposons d'installer sur votre TI agit 
directement sur le microprocesseur et 
son temps de réponse est de trois 
cycles d'horloge, soit environ une mi- 
croseconde ! 


Ce bricolage très simple ne requiert 
pas de connaissances en électroni- 
que. Il faut souder deux fils sur la 
carte principale du TI aux endroits 
indiqués sur le schéma. Ils devront 
être raccordés côté soudures. Ceci 
n'est pas très rationnel, mais l’im- 


plantation des éléments existants em- 
pêche la connection côté compo- 
sants. Le circuit étant recouvert d’un 
verni isolant, les points destinés à re- 
cevoir les soudures devront être soi- 
gneusement décapés. Les autres ex- 
trémités de ces fils seront connectés à 
un bouton poussoir unipolaire (notre 


touche RESET) que vous pourrez . 


fixer à l'arrière de la console. 


Le démontage du TI ne pose pas de 
problème particulier. Les étapes à 
respecter sont les suivantes : 
e retirer le bouton Marche/Arrêt en 
le tirant vers l’avant ; 
© enlever les vis qui maintiennent le 
fond de la console ; 
enlever l'alimentation (circuit placé 
à côté du clavier) ; 
séparer les deux connecteurs qui 
relient l'alimentation à la carte 
principale ; 
ôter les deux vis qui maintiennent 
la carte principale ; 
enlever cette carte en débranchant 
le câble plat qui la relie au clavier ; 


e extraire le connecteur des cartou- 
ches et retirer les tôles de blin- 
dage. 


Vous êtes maintenant prêt à opérer. 
Les soudures ne font normalement 
pas courir de risques à votre cher TI, 
sous réserve de prendre quelques 
précautions indispensables : 


® munissez-vous d’un fer à souder à 
panne très fine ; 

e le circuit doit chauffer le moins 
possible. Les soudures doivent 
donc être exécutées rapidement ; 
certains fers à souder laissent 
s'échapper des courants de fuite 
importants, il est donc plus pru- 
dent de débrancher le fer juste 
avant d'effectuer les soudures ; 
enfin, si vous avez quelques 
doutes sur vos capacités manuel- 
les, il vaut mieux renoncer ou 
confier cette tâche à un ami plus 
bricoleur. 


Le schéma représente le circuit 


COTE SOUDURES. 


BOUTON POUSSOIR 


TMS 9900 NL 


00000000000600000000000000000006e 
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Puzzle 


Marianne Sutz 


Ce programme, écrit en TI Basic, ne 
prétend pas égaler en définition et en 
nombre de pièces ses honorables 
prédécesseurs en papier où en car- 
ton. Par contre, le risque de ne pou- 
voir terminer le puzzle parce qu’une 
pièce s’est glissée sous la bibliothè- 
que est beaucoup moins grand ! Le 
puzzle que je vous propose est cons- 
titué de 48 pièces elles-mêmes 
composées de deux caractères gra- 
phiques superposés. Pour qu'il puisse 
être utilisé immédiatement, ce pro- 
gramme comporte un dessin stocké 
sous forme de DATAs mais vous 
pourrez créer et sauvegarder vos pro- 
pres dessins sur disquette et/ou sur 
cassette. Nous verrons cela un peu 
plus loin. 


Principes du jeu 


Les 48 pièces du puzzle sont répar- 
ties aléatoirement sur la gauche de 
l'écran. Une fois cette répartition ef- 
fectuée, le dessin reconstitué sera vi- 
sible pendant environ une minute. 
Passé ce délai, le dessin est masqué, 
mais il est possible de le faire réappa- 
raître en cours de partie en appuyant 
sur la touche ”’égal” (=). Les dépla- 
cements de pièces se font en don- 
nant leurs coordonnées de départ et 
d'arrivée. Quelques précisions au 
sujet des déplacements : 

e ils s'effectuent toujours vers le 
puzzle à reconstituer ; 

e si une pièce est envoyée vers une 
position occupée, elle prendra la 
place de l’autre pièce qui sera elle- 
même reportée sur la gauche de 
l'écran ; 

il est possible de ramener une 
pièce du puzzle vers la gauche de 
l'écran en envoyant une pièce 
inexistante” (coordonnées de dé- 
part et d'arrivée correspondant à 
une position vide) sur la position 
de celle que vous voulez déplacer. 


Score 


En début de partie, vous disposez 
d'un capital de 100 points. Chaque 
déplacement de pièce vous coûte un 
point et le fait de consulter le dessin 
original coûte trois points. Il faut 
donc essayer de reconstruire le puz- 
zle en effectuant un minimum de dé- 
placements. Lorsque vous aurez ter- 
miné, votre score sera affiché d’une 
manière symbolique, car la redéfini- 
tion des caractères ne permet pas un 
affichage du score ’en clair” (le 8 et 
le 9 sont redéfinis). 


Analyse du programme 


Ce programme occupe une place im- 
portante en mémoire et il ne m'a pas 
été possible d’insérer des REMarques 
(sauf pour le titre). Une explication 
des points principaux est donc néces- 
saire. 


Les tableaux 


Le tableau T1 sert uniquement à la 
répartition aléatoire des pièces. Le ta- 
bleau T2 permet au programme de 
savoir si le puzzle est reconstitué. Les 
tableaux TD et TA sont utilisés pour 
les mouvements de pièces. Le ta- 
bleau TA est aussi utilisé en liaison 
avec le tableau T2 pour déterminer si 
le puzzle est reconstitué. 


\ 
\ 


Ÿ 
VS 


A \ 


<S 





Le tableau TC$ n’est pas indispensa- 
ble dans la version de base de ce 
programme ; il n’est là que pour faci- 
liter l'implantation du segment de 
programme qui permet le stockage 
des dessins. 


Lignes 640 à 660 : tous les groupes 
de caractères sont mis en vert sur 
vert. Ceci permet de ’’masquer” 
l'écran pendant les initialisations et la 
répartition des pièces. 


Lignes 670 à 830: redéfinition des 
caractères 32 à 47, 56 à 64, 86 à 
159 et 75. Le caractère 32 (espace) 
étant redéfini, l'instruction CALL 
HCHAR(1,1,86,768) de la ligne 830 
remplace l’habituel ’CALL CLEAR”. 


Lignes 840 à 940: la ligne 840 ap- 
pelle le sous-programme qui affiche 


le puzzle reconstitué. Les lignes sui- 
vantes assurent de la répartition aléa- 
toire des pièces et initialisent le ta- 
bleau TD. 


Lignes 950 à 1400: affichage des 
coordonnées et du texte. Le sous- 
programme situé à la ligne 2890 per- 
met la simulation de DISPLAY AT” 
(Basic Etendu). Les lignes 1130 à 
1220 donnent leurs couleurs définiti- 
ves à l'écran et aux groupes de ca- 
ractères. 


Lignes 1410 à 1430: délai avant le 
masquage du dessin. La partie dé- 
bute après l'exécution de cette bou- 
cle (environ une minute). 


Lignes 1440 à 1960 : saisie des coor- 
données de départ et d'arrivée et 
mise à jour des tableaux. Les lignes 
1490 et 1750 permettent une utilisa- 
tion du programme quelle que soit la 
position de la touche 7’ALPHA 
ÉOCK”, 


Lignes 1970 à 2250: déplacement 
des pièces et comparaison du puzzle 
avec le tableau T2. Si les tableaux 
T2 et TA contiennent les mêmes va- 
leurs, le puzzle est reconstitué. 


Lignes 2260 à 2600 : fin de la partie. 
Celle-ci s'arrête si le puzzle est re- 
constitué ou si vous n'avez plus de 
point. Dans les lignes 2480, 2510 et 
2540, le ”’V” remplace l’espace du 
fait de la redéfinition des caractères. 
Il aurait aussi été possible d'écrire : 


2480 T$=”"PLUS”"&CHR$(86)&"DE” 
&CHR$(86)&'"POINT”. 


Lignes 2610 à 3270: ces lignes 
contiennent la totalité des sous-pro- 
grammes appelés par les routines 
que nous venons de voir. 


Version ”fichiers” 

Elle permet la sauvegarde et l’utilisa- 
tion de dessins sur disquette ou cas- 
sette. Le programme n’est pas enre- 
gistré sur la cassette N° 3, mais les 
modifications à apporter sur la ver- 
sion de base sont très simples à réali- 
ser. 


Les lignes 260 à 470 doivent être 
supprimées et remplacées par le seg- 
ment de programme FICHIERS”. 
Ce segment ne peut pas ’tourner” 
sans le programme de base. 


Lors du stockage de vos dessins, les 
pièces du puzzle sont numérotées de 
la gauche vers la droite et de haut en 
bas. Il faut prendre garde de ne pas 
avoir de pièces identiques car, dans 
ce cas, la reconstitution du puzzle 
pourrait poser des problèmes. 


La gestion de fichiers en TI Basic a 
été abordée dans les deux premiers 
numéros de ”99 Magazine”, je vous 
propose donc de vous y reporter si 
vous désirez quelques détails supplé- 
mentaires. 
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REM AO RO HONOR AO RO OX 
REM  * FUZZLE * 
REM KR X 
REM  * HASIC TI * 
REM  HK HO KO OX 
REM  * COPYRIGHT À 
REM *X 99 MAGAZINE * 
REM  * ET * 
REM  * MAR TANNE * 

* 

* 


10û 
110 
120 
1:30 
140 
150 
160 
170 
1 
190 
200 
Z10 


220 


REM  * SUTZ 

REM  HKEKAKEKANEAENAREX 

CALL CLEAR 

RANDOMIZE 

230 OPTION BASE 1 

240 DIM Tii48),T2(48),TD(8,4),TAt6,8),TC 
$(76) 

250 F=10û 

260 DATA FF8681809CC2818, RO808G9ERIBIROS 
4 FFO0BO0GG10O0RORS4, 700E 010000128904, FFO0û 
QOOOTOTBTÉ 

270 DATA 1008040404080886,FF 
04,081224142220103F,FFO0010E1023C4,010A1 
A1OZUAOEOF 


1,FF00788700071CE, G00G038450200008,FF3FC1 
O1IFE1G101 

290 DATA GiGiE11101010101, 80808080708884 
64, 848488888988909, 001008080681, 

4424242 

300 DATA 4140080585422125, 212824440900 02 
O4, POAOAOZF 1010101,109090901010101,1G101 
OFOFOPOBOZ 


310 DATA 212254283020408,030204081070408 


I20 DATA G101010101010101,814121110970805 
G1,80808081890808464,6889:848892818182,424 
2840481 

330 DATA GGE39C4GR01 0101, 020202010162046 


340 DATA G,00000000000000FF,417F417F7F7F 
7F7F,7F7F7F7F7FO000FF, 82FE82FEFEFEFEFE 
AEO DATA FEFEFEFEFEGOOOFF, G1010101G10101 
G1,0101010G1010101FF, 8484R880R8C78484,848 
404848 28292AÀ 

Iéti DATA 2142844080, 0,407F404040404041,5F 
S1SFSISFEISFEF, OOFFOGOOGGOGGGFF 


F,FF111F111FF11F1F, OOFFO000007F404, 7F202 
OZO2020E0% 

380 DATA O0FFOOQONOFEOZOZ, FEQ40404040404 
O4, G1FFO10G10101010F,FFR9F9R9FSSFF9F9, AAA 
BPIRTRIRSASRS 

390 DATA 878585898E80C4A4, 002424FF 242474 
24,FF277C80 304, SFDFDFDFDFDFDFDF,C1C 
(4040404C52E 1 

400 DATA O404FFO4040404FF, FFÜ0000000600G 
1A,1F1FFF1FIFIFIFFF, F000000000000014, 202 
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202020820207 


4,0404040404040404,F9F9FFF9F9F9F9FF, FO 
olo1o1o1o1ai | 

420 DATA A4A4A49485848484, 878792848990 0 
FF,0040C1R70404, 40FF , 0000808 
GAB44AZ1 


24 CCOSOLOODTICEOFF, AASA40001BÉ6601, OOQFONC7 
IROTOOOFEF 

445 DATA FFA4GA4QG7FA4AOFF4, BOOGOGOGIOOOOCF 
F, FFOZONFEGAO2FFO2, G2040404080808FF, SF 01 
Et 921418101,01010101010101FF" 

45 FOR Ezi TO 96 

ir READC TC#(R) 

475 NEXT E 

40 PRINT TAR(1O) s KEKAKRERAE US TARCIO) 
* #':TAR(IO) I UX PUZILE #°: TAR(IG : 
ax x" 

490 PRINT TAR(LO) s CRRRRERSAEL ile but 
de ce jeu est la reconstitution d'un 
puzzle a" 

SO FRINT "l'aide des pieces reparties a 
leatoirement aur la gauche" 

10 FRINT "de l'ecran.'":"lorsque ces pie 
ces serant affichees, vous diposerezr" 
20 PRINT "d'environ une minute pour M 
emoriser le dessin." 

0 PRINT "le dessin sera alors masque € 
t vous devrez reconstituer le pursle.f“i: 


u 


40 GOSUR 190 

280 PRINT "vous disposez d'un capital d 
e 150 points." 

0 FRINT "chaque deplacement de piece y 
ous enleve un point." 

E70 FRINT "il est possible de demasauerl 
e dessin pour environ Xû" 

RO FRINT secondes en appuyant sur la t 
auche = mais ceci vous" 

290 FEINT "fait perdre € points. & 
1 vous reussissez a" 

SD FRINT "reconstituer le purrle avant! 
‘epuisement de vos points," 

410 PRINT 'votre score sera affiche S 
ous une forme symbolique,":: 

420 FRINT "apres la lecture de cette p 
age, vous devrez attendre une minute, ": 
&30 GOSUR 3190 

649 FOR H=1i TQ 16 

&%0 CALL COLOR(R, 4,4) 

ééG NEXT ER 

670 DER=F2 

&RQ FER=47 

&90 I=1 

700 GOSUR 24610 

710 DE=té 

720 FRS 
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I=9 1320 GOSUR 2890 
à GOSUR 2610 1330 LES 
DER=8R 1340 T$="COLONNE " 


à FR=159 1550 GOSUR ZR90 
Q I=13 1360 L=7 
à GOSUR 2610 1570 GOSUR 2890 


FO CALL CHAR (RE, “O) 1380 L=S 
D CALL CHAR (SA, MFFFFFFFFFFFFFFEF# 1590 T$="DESTINATION" 
ï CALL CHAR (7S, "001873442472418") 1400 GOSUR :899û 
820 CALL CHAR (S7, "OBOGCOEFFOEGCOE" ) 1410 FOR D=0 TO 11111 
F0 CALL HCHAR (1,1,86,768) 1420 NEXT D 
à GOSUR 2690 1430 GOSUR 2950 
o FOR Riz TO 25 STEF Z 1440 CALL HCHAR(Z,15,87) 
n FOR H£=2 TO 12 STEF 2 1450 GOSUR 32340 
F0 N=INT (48XRND) +1 1480 IF K£:é1i THEN 1490 
IF TZ(Ni=0 THEN 870 1470 GOSUR 3010 
360 CALL HCHAR (EI, RE, TE (ND) 1486 GOTO 1440 
20 CALL HCHAR(EI+1,EH3, T3 (ND) +1) 1490 IF (KHsé4)k(KH£73)+(E596) X (K< 105) THEN 
9 TDC(CHI+1) /3,H2/2)=TZ(N) 1520 
20 T2(N)=û 1500 GOSUR 7150 
5Q NEXT HE 1510 GOTO 1450 
1 NEXT Hi 1520 IF E<96 THEN 1540 
HO C=4R 1330 Kzk-32 
5 FOR R=Z TO 12 STEF 1540 CALL HCHAR (2,25, K) 
) CALL HCHAR(1,EH, C) 1550 LD=C(K-64) 7) -1 
n C=C+i 1%60 I1D-F-64 
ù NEXT KE 1570 CALL HCHAR (3, 15,86) 
1G00Q FOR Hzlé TO 23 | 1580 CALL HCHAR(Z, 15,87) 
1010 CALL HCHAR(IZ,E, R+ET) 1590 GOSUR 23340 
102 NEXT EH 1600 IF KH£ïél THEN 1650 
1020 C=65 1610 GOSUR 3010 
1040 FOR Hz? TO Z3 STEF 3 1620 GOTO 1446 
19050 CALL HCHAR(E, 13, 0) 1650 IF (E547)1Xx(K254) THEN 1669 
1060 C=C+1 1640 GOSUR 3150 
1070 NEXT E 1650 GOTO 1590 
1080 C=és lébo CALL HCHAR (SZ, 25, HK) 
19900 FOR R=13 TO 23 STEF 2 1679 CD=(k-47) x? 
1100 CALL HCHAR(E, 15, 0) 1680 I2D=k-47 
11i9 C=C+1 1890 CALL HCHAR(S, 15,66) 
1120 NEXT KE 1700 CALL HCHAR (6, 15,871 
1130 CALL COLOR(1,15,16) 1710 GOSUR 3240 
1140 CALL COLOR(Z, 13,16) 1720 IF K£ïéil THEN 1750 
1150 CALL COLOR(Z,Z,8) 1750 GOSUE 3010 
1i60 CALL COLOR(4,15, 16) 1740 GOTQ 1440 
1170 FOR E=5 TO 7 1720 IF (KH:G4)x(KHE71)+(K596) k (KH2107) THEN 
1180 CALL COLOR (CE, 2,8) 1780 
1190 NEXT KE 1760 GOSUR 37150 
1200 FOR E=8 TO 14 1770 GOTO 1710 
1210 CALL COLOR (CE, 17, 16) 1780 IF KH<94 THEN 1800 
1220 NEXT R 1790 K=k-32 
1230 CALL SCREEN(R) 1800 CALL HCHAR (6, 25, K) 
1240 Lai 1810 LA=11+((K-64) 2) 
1250 Clé 1820 I14=E-64 
1260 T$="DEFART " 1830 CALL HCHAR(6,15,86) 
1270 GOSUER 7890 1840 CALL HCHAR(7, 15,87) 
17280 L=Z 1850 GOSUR 3240 
LF9G T$="LIGNE" 1860 IF S=0 THEN 1850 
1300 GOSUR 2490 1870 IF K£éil THEN 1900 
LH1O L=é 1880 GOSUR 3010 
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1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
THEN 
2020 
2020 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
.2170 
2180 
2190 
2200 
2210 


A 
ALLO 


ae 
2230 


2740 
2250 
2760 
2270 


2280 


GOTO 1440 

IF (K>47)k(K€56) THEN 19230 
GOSUE 3150 

GOTO 1850 

CALL HCHAR(7,25,K) 

CA=K-32 

124=k-47 

CALL HCHAR(7, 15,86) 

IF TD(IID,12D)<>86 THEN 2000 
DR=0 

GOTO 2010 

DR=i 

IF (TA(IIA, I24)=0)+(TA(I1A, 124) =86) 
2040 

IN=TA(I1A, 124) 

GOTO 2050 

IN=86 

IF DR THEN 2080 

CALL VCHAR (LA, CA, 86, 2) 

GOTO 2100 

CALL HCHAR(LA,CA,TD{I1D, 12D)) 
CALL HCHAR(LA+1,CA, TD{I1D, 12D) +1) 
TA(I1A,12A)=TD(IID, 12D) 

IF IN=86 THEN 2160 

CALL HCHAR (LD, CD, IN) 

CALL HCHAR(LD+1,CD, IN+1) 
TD{I1D,1Z2D)=IN 

GOTO 2200 

CALL VCHAR(LD, CD, 86, 2) 
TD(I1D, I2D)=0 

P=p-1 

IF P£=0 THEN 2290 

I=1 

FOR Vi=i TO 4 

FOR V2=1 TO 8 

IF TA(VI,V2)=T1 (I) THEN 2260 
GOSUR 3100 

GOTO 1440 

I=I+1 

NEXT V2 

NEXT Vi 


n FOR B=i TO 7 
00 CALL HCHAR(ER, 15,86, 13) 
310 NEXT KR 


IF Pé=0 THEN 2460 
GOSUR 2690 

IF F>1 THEN 2340 
T$="POINT" 

GOTO 2350 
T$="POINTS" 


2350 Lai 


C=ié6 


à GOSUR 2890 


FOR LI=S TO 6 


FOR CO=16 TO 31 


2420 
2430 


CALL HCHAR(LI,CO,75) 
P=P-1 

IF P=0 THEN 2500 
NEXT CO 


244û 
2450 
2440 
470 
2480 
2490 
2500 
alto 
2520 
Br O 
2540 
2530 
260 
2570 
2ee0 
2590 
2600 
2610 
620 
2650 
2680 
28650 
sééo 
28670 
2480 
2890 
2700 
2710 
2720 
2750 
F4 
2750 
2760 
2770 
78û 
2790 
2800 
2810 
2820 
Manu 
2840 
BARS 
2840 
2870 
2880 
2890 
2900 
2910 
2920 
2920 
2940 
2950 
2980 
A0) 
2780 
2990 
3000 
010 


3020 


NEXT LI 

GOTO 2500 

L=i 

C=16 
T$="PLUSVDEVPO INT ‘ 
GOSUR 2890 

L=7 

TH="ARRETVDU" 

GOSUE 2890 

L=8 

T$="PROGRAMMEVPAR" 
GOSUR 2890 

L=9 

T$="ENTER" 

GOSUR 2890 

GOSUB 23200 

END 

FOR E=DB TO FB 

IF INT(B/2)<>B/2 THEN 2650 
Ti(D)=R 

I=1+1 

I2=12+1 

CALL CHAR(E, TC#(12)) 
NEXT E 

RETURN 

I=i 

FOR EBi=13 TO 

FOR B2=25 TO 32 

CALL HCHAR(B1,B2,T1(I)) 
T2(1)=T1 (D) 

CALL HCHAR(R1+1,B2, Ti(I)+1) 
I=1+1 

NEXT E? 

NEXT Ri 

C=65 

FOR B=13 TO 23 STEP 2 
CALL HCHAR(B,24,C) 
C=C+1 

NEXT E 

C=48 

FOR B=25 TO 32 

CALL HCHAR(17,B,C) 
C=C+1 

NEXT E 

RETURN 

PC=1 

FOR E=C TO C+LEN(T#)-1 
CALL HCHAR(L, BR, ASC(SEGS (TS, PC, 1) )) 
PC=PC+1 

NEXT E 

RETURN 

FOR B=25 TO 232 

CALL VCHAR(13,E, 64, 12) 
NEXT E 

CALL HCHAR(12,25,86,8) 
CALL VCHAR (13, 24,86, 12) 
RETURN 

CALL VCHAR (2, 15,86, 6) 
P=P-5 


pr + 
Le 


STEF 2 
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SOI IF Fisû 
040 GOSUR 100 

2050 COSUR 2490 

3060 FOR D=û TQ 5000 

3075 NEXT D 

3080 GOSUR 2950 

2090 RETURN 

3100 CALL HCHAR (2,25, 86) 
3110 CALL HCHAR(Z,25,86) 
3120 CALL HCHAR(é, 23, 86) 
3130 CALL HCHAR (7,25,86) 
140 RETURN 

3150 CALL SOUND (10,445, 0) 
160 CALL SOUND(10,294,0) 
3170 CALL SOUND (10,392, 0) 
180 RETURN 

3190 PRINT TAB{S) ; "APPUYEZ SUR <ENTER:": 
TAR(7) 3; "POUR CONTINUER" 
200 CALL HEY(O,E, S) 

3210 IF ES THEN 3200 
3220 CALL CLEAF 

3230 RETURN 


THEN 2290 


.9) 


3250 


APE CALL KEY (0, 
3260 IF S=0 der 
2270 RETURN 


Segment Fichiers 


n REF HAE ER ER REXARRÉEEX 
261 REM *SEGMENT FICHIERSX 
Br REM KKXKAXAEREMERKEXEX 
&5 SIéilii="euperieure" 

SI$(2)="tinferieure" 

FRINT "FUZZLE'": s:"i-creation d'un #i 
chier": ones d'un fichier": : 
i-fin du programme" 
e6é PRINT : : "ENTREZ 
2647 CALL EEY(O,K, 5) 
Be IF (E< 49) + CE #01) THEN 267 
269 IF Ez=Si THEN 400 
20 IF K=S50 THEN 347% 

272 FOR PIEIi=i T0 95 STEP 2 

274 FOR FIEZ=0 TO i 

Z7& CALL CLEAR 

£78 INEUT "partie "ESIS(FIES+1)8&" piece 
FESTRS (FIEL-LIX(PIEI-1) /2))8&" TeTES (PT 
El+PTEZ) 

2805 LN<LEN(TCS(PIEI1+PIEZ)) 

Z82 IF LNizié THEN 292 

264 FRINT : "CHAINE TROF LONGUE" 

285 GOSUR 3150 


VOTRE CHOIX..." 


Réparation des boutons 


de joysticks La-Bretèche. 


Les pannes de 


Ce truc” nous est communiqué par 
Monsieur Jacques Vermont, un de 


266 FOR D=0 TO 500 

288 NEXT D 

20 GOTO 276 

292 FOR B=1 TO LN 

294 VLEASC(SEGS (TCS (FIEI+FIEZ) ,R, 1)) 
296 IF (VL#:47) X (VLE 568) + (VL 5:64) *(VL£71) TH . 
EN 23046 

297 GOSUR 3150 

298 FRINT :'"le caractere 
st pas valide" 

404 GOTQ 286 

306 NEXT E 

308 NEXT FIEZ 

310 NEXT FIEI 

12 CALL CLEAR 

314 PRINT "SAUVEGARDE DU FICHIER": 
ur cassette": :'"%-aur disquette": 
EZ VOTRE CHOIX..." 

316 CALL FEY(O,FK,S) 

IQ IF (KH£490)+(K550) THEN 
319 CALL CLEAR 

20 IF K=49 THEN 338 

3223 INPUT "nom du puzzle? ":NF$ 

324 OPEN #i:"DSE1., "ENPS$, QOUTFUT, INTERNAL, 
FIXED 17 

326 GOTO 330 

338 OPEN #1: "CSI", 
FOR EH=i TO 96 
PRINT #1:TC#(ER) 

NEXT EH 

CLOSE #1 

CALL CLEAF 

GOTO 2464 

342 CALL CLEAR 

M4 FRINT "i-fichier sur cassette": 
fichier sur disquette": : "ENTREZ VOTRE C 
OT: 

3448 CALL KÉEY(G,K: SG) 

AR IF (K£49)+(K5350) THEN 746 

349 CALL CLEAR 

A0 IF Ke49 THEN 358 

252 INPUT "nom du puzzle? ":NF$ 

4 OPEN: #i: "DSK1, "ENPS, INPUT , INTERNAL, 
FIXED 17 

356 GOTQ 360 

358 OPEN #i:"CSi", 
360 FOR R=i TO 96 
62 INFUT #1: TC$(H) 
364 NEXT E 

éé CALL CLEAR 

3:68 GOTO 480 

400 CALL CLEAR 

4072 END 


ECHRS (VL)s"n'e 


s"1-s 


: "ENTR 


316 


INTERNAL, OUTPUT, FIXED 
330 


are Le | 
JUL 


434 
56 
338 
140 


: nD— 


INPUT , INTERNAL,FIXED 


nos fidèles lecteurs, de a Nom- 


jipicis res à 
souvent du fait que le contact du di 
bouton poussoir est uniquement as- 





(2) MAGAZINE n°3 


Ce programme de jeu, écrit en 
Basic TI, nous vient de nos amis 
belges du club TISOFT-HOME. Nous 
lui avons apporté quelques modifica- 
tions pour le rendre plus fiable et 
nous l'avons traduit en français. 


Awari est un très ancien jeu africain 
dont l’origine exacte et l’époque 
d'apparition sont mal connues. Son 
nom et ses règles peuvent varier sen- 
siblement d’un pays à l’autre. 


Présentation 


Le jeu se présente sous la forme 
d’une planche dans laquelle sont 
creusés 18 trous (ou cases) répartis 
de la façon suivante : 


e 8 trous de chaque côté de la plan- 
che ; 

e 2 trous à chaque extrémité: ce 
sont les cases personnelles des 
joueurs. 


Les règles 


En début de partie, les cases placées 
de chaque côté de la planche 
contiennent chacune 3 graines. La 
partie se termine lorsque toutes les 
cases situées sur un côté de la plan- 
che sont vides. Le vainqueur est le 
joueur qui a engrangé le plus de 
graines dans sa case personnelle. 


Toute la stratégie du jeu réside dans 
le déplacement des graines, qui se 
fait de la manière suivantes : 


e le choix de la case dans laquelle 


se trouvent les graines que vous- 


10 REM KXXKKANAANEXEREX 
20 REM * AUWARI * 
JO REM KKXAEX ARR RAUEX 
40 REM *X BASIC TI * 
JO REM KKKKXENEEIERAUX 
60 FEM *% COPYRIGHT  * 
70 REM * TISOFT ET * 
80 REM * 99 MAGAZINE * 
Q0 REM KR KOONOROEAONE 
150 CALL CLEAR 

200 CALL COLOR(Ii6,11,11) 
250 CALL CHAR(152,"") 


300 CALL CHAR (IIS, "SDSFFF7FFFFE7 SI") 
350 CALL CHAR(114, "00010100 71E3C7C") 
400 CALL CHAR (115,"7FC77261811F3F7F") 
450 CALL CHAR (116, "FF7F7CSESF3FIFIF ") 
200 CALL CHAR (117, "EFC7070707BICSEZ") 


da0 CALL 


600 CALL CHAR (119, "ESFS7ER7FSFO9F9FCF ") 
650 CALL CHAR (120, "01000001010%7F7E") 
700 CALL CHAR (121, "CFE7E773FOFS8FRS8R") 
750 CALL CHAR (122, "RéF&FFFEFFFFO9EFC") 
800 CALL CHAR (123, "OOBOBOCOEQO7RICSE ") 
85OQ CALL CHAR(124, "FEESCES681F8FCFE") 


CXC) MAGAZINE r° 3 


voulez déplacer s’effectue à l’aide 
des touches flèche à gauche” et 
flèche à droite” (FCTNS et 
FCTN-D). Ce choix doit être 
confirmé par une pression sur la 
touche ENTER ; 


toutes les graines situées dans la 
case choisie sont distribuées une 
par une dans les cases suivantes, 
et ce dans le sens inverse des ai- 
guilles d’une montre ; 


si, lors du déplacement, une ou 
plusieurs graines arrivent au bout 
de la planche, le déplacement 
continue en passant par la case 


Awari 


Julien Thomas 


e si la dernière graine du déplace- 
ment arrive dans une case vide di- 
rectement opposée à une case oc- 
cupée, toutes les graines situées 
dans la case occupée plus la der- 
nière graine du déplacement sont 
reportées dans la case personnelle 
du joueur concerné. 


QUI PEUT BATRE 
UMBALA Kuguüi ? 


personnelle située à cette extré- 
mité ; 


lorsque la dernière graine d’un dé- 
placement arrive dans la case per- 
sonnelle du joueur, celui-ci doit re- 
jouer ; 


Votre adversaire est le légendaire 
’UMBALA KUBU/” (alias TI-99/4A) 
et vous pourrez vour apercevoir que 
sa réputation n’est pas surfaite car il 
n’est possible de le battre qu'après 
avoir pratiqué ce jeu pendant un cer- 
tain temps. 


900 CALL CHAR CIS, "FFFESE7CFCFCFCFC") 
950 CALL CHAR (126, "F7EXEOEOEOCICZC7 "à 
1000 CALL CHAR(IE7, "FRFOFOEGCOCORGRO") 
1050 CALL CHAR (128, "C7YCFDEFEFCFSF9FZ") 


1100 CALL 


1150 CALL CHAR(1ZI, "00 

1200 CALL CHAR(13OQ, "FETE /CEOFIFIFIC") 
1250 GOSUR 1400 

1300 GOSUR 2500 


1550 GOTO 3050 


1400 CALL CLEAR 
1450 CALL HCHAR (16, 15,171) 


1500 CALL HCHAR(16,18,171) 
1550 CALL HCHAR (16,16,113) 
1600 CALL HCHAR(17,15,114) 
1650 CALL HCHAR(17,16,115) 
1700 CALL HCHAR(IR, 15,116) 


1750 CALL HCHAR (168, 16,117) 


1800 CALL HCHAR(19, 12,118) 
1850 CALL HCHAR(19,164,119) 
1900 CALL HCHAR (20, 15,120) 
1930 CALL HCHAR(20, 16,171) 
2000 CALL HCHAR(16,17,122%) 
2050 CALL HCHAR(17,18,12Z3) 
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CALL 
CALL 
CALL 
CALL 
CALL 


2100 
2150 
2200 
2250 
2500 
2380 
2400 
2450 


200 


HCHAR (17, 17,124) 

HCHAR (18, 18,175) 

HCHAR (18, 17,126) 

HCHAR (19, 18,127) 

HCHAR (19, 17,128) 

CALL HCHAR (20, 18, 129) 

CALL HCHAR(20, 17,130) 

RETURN 

FOR Y=1 TO 3 

2550 CALL SOUND(100,110,0,111,1,-5,8) 

2600 CALL SQUND (400, 110,20) 

2650 FOR X=1 TO à 

2700 CALL SOUND(100,110,7,-5,15) 

27580 CALL SOUND (400, 110,30) 

2800 NEXT X 

2880 NEXT Y 

2900 RETURN 

3050 GOSUE 2500 

3100 FOR X=1 TO 100 

3150 NEXT X 

3160 CALL CLEAR 

3200 FOR X=9 TO 13 

3250 CALL COLOR(X, 7,16) 

3300 NEXT X 

3250 CALL CLEAR 

3360 PRINT "AWARI EST UN ANCIEN JEU 

AFRICAIN. IL SE PRATIQUE AVEC 36 GRAI 

NES, & CASES DE" 

3370 FRINT "CHAQUE COTE ET DEUX CASES PE 

RSONNELLES. " 

3380 PRINT : "VOUS DEVEZ DEFLACER TOUTES 
LES GRAINES FLACEES DANS UNECASE SITUEE 
DE VOTRE COTE." 

3390 PRINT "CES GRAINES SONT DISTRIBUEES 

UNE FAR UNE DANS LES CASES, DANS LE SENS 
INVERSE DES" 

3400 PRINT "AIGUILLES D'UNE MONTRE. 

SI LA DERNIERE GRAINE DE VOTRE DEFLAC 

EMENT EST FLACEE" 

7410 FRINT "DANS VOTRE CASE FERSONNELLE, 

VOUS PRENEZ UN SECOND TOUR. ": 2 : 

3420 GOSUB 16000 

2550 CALL CHAR (96, "") 

3600 CALL CHAR(97, 

3650 CALL CHAR (98, "0000000040004 ") 

3700 CALL CHAR (99, "0000400040004") 

3750 CALL CHAR (100, "4000400040004") 

3800 CALL CHAR (101, "400040004000" ) 

3850 CALL CHAR (102, "400040005000" ) 

3900 CALL CHAR (103, "4000500050005") 

3950 CALL CHAR (104, "5000500050005" ) 

4000 CALL CHAR (105, "50005000500054") 

4050 CALL CHAR (106, "50005000540054 " ) 

4100 CALL CHAR(107, "50005400540054") 

4150 CALL CHAR (108, "54005400540054" ) 

200 CALL CHAR (109, "54005400540055" ) 
250 CALL CHAR (110, "54005400550055" ) 
4300 CALL CHAR (111, "54005500550055") 
4350 CALL CHAR (112, "55005500550055" ) 


4400 CALL COLOR(14,5, 16) 
4450 CALL COLOR(15,9,16) 
4500 CALL CHAR(136, "18ZC7EFF18181818") 


4550 CALL CHAR(144,"18181818FF7E3C18") 
"SI LA DERNIERE GRAINE EST 
DIRECTEMENT 


4600 PRINT 
PLACEE DANS UNE CASE VIDE, 
OFPOSEE À UNE" 

4610 PRINT "CASE OCCUFEE, TOUTES LES 

GRAINES FLACEES DANS CETTE CASE FLUS LA 
DERNIERE GRAINE" 

4620 FRINT "SONT DEFLACEES VERS LA CASE 

PERSONNELLE DU JQUEUR. QUAND UN COT 

E EST VIDE, LA" 

4830 FRINT "PARTIE S'ARRETE. LE JOUEUR 

QUI A LE PLUS DE GRAINES EST LE VAINO 

LEUR. “ 

4640 FRINT :"UTILISEZ LES FLECHES FOUR 
INDIQUER LA CASE ET APPUYER SUR <ENTER? 
FOUR VALIDER." 

4650 FRINT : "VOTRE ADVERSAIRE EST 
"UMEALA KUBUI”, LEGENDAIRE CHAMPION DE 
CENTRE AFRIQUE. ": : 

4660 GOSUE 16000 

4950 U=i1 

HO00 V=19 

S0SO W=9 

5100 Z=9 

5150 DATA © 

5200 FOR X=1 TO 1000 

5250 NEXT X 

SÉ00 DIM R(12),G (12) ,F (50) 

S350 PRINT : : 

5400 INPUT "VOTRE NOM SVP 7 ":A8 

5450 READ N 

SÉ00 E=0 

5550 CALL CLEAR 

5600 FOR I=0 TO 12 

S6S0 H(I)=3 

5700 NEXT I 

5750 C=0 

SEC F(N)=0 

S8S0 R(13)=0 

5900 B(6)=0 

5950 PRINT 

{O/N)" 

5955 CALL KEY (0, TOUCHE, ETAT) 

5960 IF (TOUCHE<78) + (TOUCHE »79) THEN 5955 

5970 CALL CLEAR 

6000 CALL COLOR (Z,2,16) 

6050 CALL COLOR (4,2, 16) 

6100 IF TOUCHE=78 THEN 6250 

6150 GOSUR 10650 

6200 GOTO 6400 

6250 GOSUR 10650 

6300 GOTO 6700 

6400 CALL HCHAR(V,UW, 136) 

6450 GOSUE 8600 

6500 IF E=0 THEN 7250 

6550 IF M<>H THEN 6650 


"VOULEZ VOUS COMMENCER 7? 





6600 GOSUR 8600 9550 IF R(M)=z0 THEN 8400 

6650 IF E=0 THEN 7250 9600 H=6 

6700 CALL HCHAR(V,W, 32) 9650 GOSUR 9750 

67530 GOSUR 13050 9700 GOTO 11050 

&R00 IF E=0 THEN 7250 7750 T=M 

B8S0Q IF MSSH THEN 7050 GRO GOSUR 123700 

6500 GOSUR 11050 7850 E=0 

6950 CALL HCHAR(U, 2,2) 9900 IF T£=é THEN 10000 

7000 GOSUR 13050 9960 T=T-7 

7050 IF E=0 THEN 7250 10000 C=C+1 

7100 GOSUR 11050 10050 IF Cir=9 THEN 10150 

7150 CALL HCHAR(U, Z,32) 10100 F(N)=F (N) k6+T 

7200 GOTO 6400 10150 FOR I=0 TO 5 

7250 GOSUR 11050 10200 IF R(I)<>0 THEN 102350 

7300 IF B(6)>R(1X) THEN 7650 10260 NEXT I 

7250 IF R(13) >R(46) THEN 8200 10700 RETURN 

7400 FOR X=880 TO 110 STEF -55 10350 FOR 1=7 TO 12 

7450 CALL SOUND (100, X,0) . 10400 IF R(I)=0 THEN 10550 

7500 CALL SOUND(100,110,230) 10450 E=i 

7550 NEXT X 10500 RETURN 

7600 GOTO 5500 10550 NEXT I 

7650 CALL HCHAR (21,25, 152) 1800 RETURN 

7700 CALL HCHAR(21,28, 152) 10650 GOSUR 1400 

7750 CALL HCHAR (20,25, 152,4) 10700 PRINT " UMBALA EUBUI": 2: 

7800 CALL HCHAR(2E, 25,152, 4) 10750 PRINT " MA";TAR(25); "TA “: "CASE" 

7850 CALL SOUND (100,220, O) : TAR (25) ; "CASE" 

7900 FOR X=2270 TO 1020 STEF 50 10800 PRINT s 2 2 5 1: : 

7950 CALL SOUND (20, X, 0) 10850 FRINT :" “RAS: à 

8000 NEXT X 10900 FOR X=12 TO 18 

8050 FOR X=1 TO 1000 10950 CALL HCHAR(X,8, 157,18) 

8100 NEXT X 11000 NEXT X 

8150 GOTO 17000 11050 FOR I=12 TO 7 STEF -1 

8200 CALL HCHAR (9,25, 152) 11100 CALL HCHAR(13,9+3k(12-1), HI) +96) 

8250 CALL HCHAR (9,28, 152) 11150 NEXT I 

8300 CALL HCHAR (GR, 25, 152,4) 11700 FOR I=0 TO 5 

8350 CALL HCHAR (10,25, 152,4) 11250 CALL HCHAR (17, +341, ER (1) +96) 

8400 GOSUR 2500 11300 NEXT I 

8450 FOK X=i TQ 1000 11350 DI=INT{R( 17%) /10) 

800 NEXT X 11400 D?2=B(17)-10%XD1 

8550 GOTO 17000 11450 CALL HCHAR(9,26,D1+48) 

8600 CALL KEY(O,K,S) 11500 CALL HCHAR(9,27,D2+46) 

8650 CALL HCHAR (IV, U, 136) 11250 DI=INT (B(é)/10) 

8700 IF S=0 THEN 8600 11600 D7=BR(6)-10XD1 

8750 IF K£>68 THEN 9050 11650 CALL HCHAR(21,276,D1+48) 

8800 CALL HCHAR(V,W, 32) 11700 CALL HCHAR(21,27,D7+48) 
8850 W=W+3 11750 IF R(13)%16 THEN 11900 
8900 IF W£25 THEN 8600 11800 CALL HCHAR(15,5,H4(17) +96) 

8950 W=24 11850 GOTO 12000 

9000 GOTO 8600 11900 CALL HCHAR(15,5,112) 
9050 IF K<>83 THEN 9550 11950 CALL HCHAR(15,6,R(12) +80) 
9100 CALL HCHAR(V,W, 32) 2000 IF R{d)>lé THEN 12150 
9150 W=W-3 12050 CALL HCHAR(15,277,R(6)+96) 
200 IF W>8 THEN 8600 12100 RETURN 

9250 W=9 17150 CALL HCHAR(15,27, 112) 
9:00 GOTO 8600 12200 CALL HCHAR (15,28, BR (6) +80) 
9350 M=(W-6) /3 12250 RETURN 

9400 CALL SOUND (100,440, 1,550, 1) 12200 P=B(M) 

9450 CALL SOUND (100,550, 1,660, 1) 12350 E(M)=0 

9500 M=M-1 12400 FOR F=F TO 1 STEP -1 
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12450 MN=M+1 

12500 IF MSzi5 THEN 17600 
Sono M=M-14 

12600 H(M)=E CM) +1 

12650 NEXT F 

12700 IF 
N iZRO00 
12750 
12800 
12850 
12900 
12950 
12000 
LEO 
13100 
LESC 
12200 
15250 
15500 
LIT 
1:400 
13450 
13500 
LISE O 
13600 
15650 
15700 
15750 
13800 
12850 
13700 
19 EC 
N 14050 

14000 KR (12-L) + 

14050 IF KR£zG THEN 14150 
14100 Q=R 

14150 NEXT 1 

14200 GER (13) -B(6)-0Q 
14250 IF C:8 THEN 14650 


14500 T=] 


RETURN 

RH) =R CH) +R (12-M) +1 
RM) =0 

H(i2-M)=û 

RETURN 

D=-99 

H=13 

FOR I=0 TO 13 
G{I)=R(l) 

NEXT I 

FOR J=7 TO 12 

IF HiJi=zû THEN 14950 
D=Q 

M=J 

GOSUR 12500 

FOR Iz0 TO 5 

IF H(Iji=0 THEN 14150 
L=R(I)+I 

R=O 

IF Lé=i3 THEN 13950 
L=L-14 

R=1 

GOTO 13750 


(H(M)=i)+(ME 6) + (MST) EX THE 


IF H(12-M)<45%0 THEN 17850 


IF (HL)=0)+(Lé 56) +(L£ #17) € 5 


| 14350 
14400 T=T-7 


IF Tézé THEN 14450 


14450 FOR I=0 TO N-1 
14500 IF FN) K6+T<S INT (F (I) /6% (7-0) +,1)7T 


HEN 14600 

14550 Q=Q-2 
14600 NEXT I 
14650 
14700 
14750 
14800 
14850 
14900 
14950 
15000 
15050 
15100 
15150 
15200 
13250 
15300 


15350 


15400 
15450 
16000 


NEXT I 


A=J 
D=Q 
NEXT J 
M=A 


NEXT I 
END 


FOR I=0 TO 13 
R(I)=G{T) 


IF QD THEN 14950 


=34 (15-M) 
CALL HECHAR (LU, Z, 144) 

CALL SOUND (100,440, 1,550, 1) 
CALL SOUND (100,440, 1,240, 1) 
GOTO 9750 

FOR I=0 TO N-1 

PRINT (I) 


FRINT TAR(S): "APPUYEZ SUR <ENTERS" 


: TAR(7) 3; "POUR CONTINUER" 

16010 CALL FEY(O, TOUCHE, ETAT) 
16020 IF TOUCHES:*13 THEN 16010 
16030 CALL CLEAR 


16040 RETURN 


1#000 CALL CLEAR 


3 THE | 17005 PRINT 


(Q/N)" 


"VOULEZ VOUS FEJQUER 7? 


17610 CALL FEY(O, TOUCHE, ETAT) 


17020 IF 
10 


{TOUCHE< 78) + (TOUCHE 79) THEN 170 


17050 IF TOUCHE=79 THEN 5500 
17040 CALL CLEAR 


17050 END 


Sapin de Noël 


Gilbert Arribet 


Ce programme graphique et musical 
de circonstance est écrit en Basic 
Etendu. 


L'utilisation du Basic Etendu pour la 
réalisation d’un programme graphi- 
que présente à la fois un avantage et 
un inconvénient : les lutins (sprites) 
permettent de sortir” de la matrice 
24x32 et autorisent ainsi un gra- 
phisme plus soigné. Par contre, le jeu 
de caractères est plus limité (les grou- 
pes 15 et 16 ne sont pas accessi- 
bles). Il fallait donc étudier très soi- 


gneusement la question afin de 
pouvoir ”’créer” ce sapin avec les ca- 
ractères disponibles. Pour cela, l’utili- 
sation d’une feuille de papier milli- 
métrée s’imposait Ce genre de 
feuille a un gros défaut : elle est divi- 
sée en blocs de dix millimètres par 
dix alors que les caractères du TI 
sont formés dans une matrice 8x8. 
La seule solution était de tracer des 
lignes au stylo pour simuler l'écran 
de l'ordinateur. Après cela, il ne res- 
tait plus qu’à ”’noircir les cases”. La 
totalité des caractères devant être re- 
définie, la réalisation de ce pro- 


gramme ressemblait beaucoup plus à 
un travail de bénédictin qu’à un tra- 
vail de programmeur ! 


Le programme 


Les nombreuses remarques insérées 
devraient permettre une compréhen- 
sion aisée de ce programme très sim- 
ple. Il faut tout de même préciser 
que le programme joue ‘Mon beau 
sapin” lorsque vous appuyez sur la 
touche ”M” et s’interrompt si vous 
pressez la touche ”F”. 
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XX NON AONIOHIOO I OX 
x SAFIN DE NOEL % 
M AOK AOK NOK HAN OO 
*x BASIC ETENDL * 
% KKOK NON HOMO CHOCO 
* COFYRIGHT * 
* GILBERT 
* ARRIRET 
* ET 
* 
* 


100 ! 
120 ! 
140 ! 
160 ! 
180 ! 
z00 ! 
220 ! 
240 ! 
260 ! 
99 MAGAZINE 
D Tr1e21211121112t) 


z80 ! 
HO0 
320 ! 
340 DIM F14(45),D(45),F2(48),F3 (45) 
3560 ! 
efface ecran 

! couleurs caracteres : 

! transpar./transpar, 


380 ! 

400 
20 

44û ! : 
440 CALL CLEAR :: CALL SCREEN(ES):: FOR K 
=1 TO 14 :: CALL COLOR(H,1,1):: NEXT EH 
4aû ! 

500 ! DATAS pour musique 

S20 ! 


540 DATA 224,4,%11,2,411,1.3,3%11,8,349,4 


.392,3,392,1.3,292,6,311,2,249,2,392,2,4 
15,4 
SéQ DATA 294,4,749,4,3%11,10,466,7,466,3, 
2392,1.3,523,6,466,2,466,3,415,1.3,415,6, 
415,2 
580 DATA 415,3,249,1.3,466,6,415,2,415,3 


,392,1.3,392.8,233,4,311,3,311,1.3,311,8 
249,4 

6QO DATA 292,3,392,1.3,392,6,311,2,249,2 
.392,2,415,4,294,4,349,4,%11,8 

620 ! 
840 ! 
66ù ! 
&B0 ! 
700 DATA 0,000101080708070F ,07070F1F1F3F 
7FFF, ZF2F7F7FFFFFFFEF 

720 DATA 0000000000000108,0F1F3F7FFFFFFF 
FF,0F07010103%020707,0FO0F1F1F3F7F3F1F, 030 


DATAS redefinition 
des caracteres 


74G DATA OF1FOFO703010807,0F0703030767EF 
FF, 000000040E030101,8080COCGEGFOFSE, FOFO 
FOF8FS8FCFCFE, GO008080CGCGEOF 

760 DATA COCOEOGEOFOFOFSFS, FRFCFFFEFCFSFC 
FE, 008080COCO0E0FOFS, FRFOEOEOEGFOFSFC,FEF 
CFEFFFFFFFFFF , FOEOFOFSFCFCFEFF 

780 DATA OGBOCOEZECFAFOE, COFOFFCFEF FGF 
C, COCOEOEOFOFSFCFF, 1F0703,FFFFFF78,FFFFF 
F7FSEIEQC 

800 DATA FFC7830301,FFFFFFFFFF793,FFFFFF 
FOEOS8,FFFFFFFFRFOFO7OT, E88,FF662 

970 DATA FFFFFFE7C3C18,FFFFFFFFFFF7C1,7E 
381,FFFFFFFFF7ESC18,FFFFFFFFFFEF1D08,000 
000000000468 

840 DATA FFFF7F7F7F7F7F7F, FFFFFFFFFFFFFE 
FE, SFSF3FSF3F3F3F7F, FEFEFEFFFFFEFEFE , 000 
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DOGOOO1LCIO1, FFFFFFFFFFFFFFOE 

RB&Q DATA FEFEFEFEFFFFFFFC, GOOGOOGOOG8CE , 
61 42201, 000001 1A242020C, 0080453, 0000010 
20200107 
880 DATA O101CE3,010916102070408, 0112707 
G4040808, 408, 804078040201, 00000001028448 
QQ0 DATA G60908R04,C12618, GO00000070424€8 
8, 
428 

20 DATA 19668,41271C, 00008040 3ROA4, OSOCE 
GC, 0000609008040407, 804020207201 00008 

740 DATA 000412224281, 0000814474, GOG0204 
G404487, 202020100808102,000082412A14,000 
CE 

94 DATA 00000000 18240202, 84482402000020 


980 DATA G004,00000000007,2020FR20%, 1054 

SRFESRE41 , 40E 04, AOG4OÀ 

1000 DATA 105438FE30541,60FO0FO6, 2040C0Cû0 

CO402, SGSCRERERERESCE8, 2070F8702,R870707 

08 

1920 DATA AN4OA, 40E04, R8SOZOSOBS, ZOLOFEZ 

OZ, 2070F8702, 1038FE7C386C8E | 

1040 DATA &0FOFOé, F070F8702, 40604, 105458 

FE3RS41,:3078FCFCFC78S, ROS43RFE 

1060 DATA FE3REA4R, 202070F870202, 00400000 
AGESF7F, OÙ 


1080 ! 
+00! 
RTE | 
1140 ! 


DATAS codes des 
caracteres 


TO ne + en + RE + rs LT 


1160 DATA 32,32,232,79,72,72,32,535,4%, 32, 


HD 29 AN 20 TD 29 HO 9 EN VI TD FD TO 
DE gp eg NE qq Sa La se sta dis 3e gg dés = 


4 

1180 DATA 46,32,32,22,232,32,22,37,22,32, 
32,32,32,22,36,35,81.47,32, 32,32, 32,32,3 
“3 

1200 DATA 32,32,32,32,32,32,33,60, 103,48 
37,32, 32, 22,37, 87, 07, 37, 22,82, 22, 36 7 à 
104 

1220 DATA 112,49,32,22,32,32,27,22, 32,22 
.32,32,22,28,96,111,105,86,50,32,32,32,3 
2,32 

1240 DATA 32,32,32,32,32,39, 102, 109,85, 1 
13,51, 32, 32, 32, 32, 32, 32, 32, 32,32, 36,37,9 
3,84 

1260 DATA 111,106,46,32,32,32,32,32,32,3 
2,32,22,23,82,87,114,99,111,52,47,32,32, 
42,232 

1280 DATA 32,32,32,32,28,98,111,100,111, 
107,97,53, 22, 22,22, 32,32,22,32,41,40,112 
106,111 

1200 DATA 92,93,94,95,45,22,32,32,32,32, 
42,233,88,89,90,91,111,109,113,110,49,32, 
32,32 

1320 DATA 32,32,41,37.111.111,104,115,10 
8,111,102,111,86,54, 32,32, 32,32, 34,60, 91 
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.88,93,81 
1340 DATA 95,82,90,84,111,48,32,32,32,%6 
s9ds 111, 107,112 ‘111,115,110,111, 105,111, 
100,46,32,32 

1360 DATA 327,:8,99,113,110,97,114,111,10 

STiRNULT, 115, 113, SI, 7192 32,42, .iti,106 
still 81, 82,90 

1380 DATA 88,93:,86,82,84,91,53,:2,44,94%, 
112,92 .84,111,114,111,115,101,111, 110,11 

2, 107,49,3Z 

1400 DATA 33,91,80,117,111,108,111,10%, 1 
11,109,115,92,93,108,52,45,34,109,104,11 
1,192,115,110,114 

1420 DATA 195,111,81,87,113,91,80,56,57, 

08:27100161,62,63,111,111,85,69,70,67,66 
«101,49 

1440 DATA PI PE PP PAP VC LT LS 2 

20, eo + 32,32, 


CET ET TE Es SEC 64, SL SDS +4: 


4 


7" 
SL SL Ses 7 


1460 DATA 75,32, 32, 32, 32, 32, 324 329 S2s S2s 
"€ +2 
824 325 


F2 S29 70 7/75 703 793328 SL 9 829 Sos Ses d 


1480 ! 

1500 ! DATAS couleurs 

1520 | caracteres 

1540 ! 

1960 DATA 15, 1,18, 151313183318 137 soi 

2,18:10,145,5,13,4,15,9,15 

1580 ! 

1600 ! DATAS positions et 

16420 ! couleurs sprites 

1640 ! 

1660 DATA 6,47,115,16,6,125,8,36,144,9,5 

7:149,10,93,140,12,141,467,14,168,8%3, 15, 1 

49,154 

1480 DATA 16.97,92,5,119,97,6:67,135,7;.1 

01,174,8,143 ,113,9,124,1950,10,169,189,11 

74, 114 

1700 DATA 1%,42,107,14,111,141,15,135,18 

4,16,149,149,6,150,92,7, 2? 128,8,169,117 

1720 DATA 9,127,137,10,97,109,11,152,128 

173161,124,7,161,129 

1740 ! 

1760 ! 

1780 ! 

100 ! 

1820 GOTOQ 1940 :: CALL CHAR :: CALL HCHA 

R 2523 CALL SPRITE :2 CALL KEY :s CALL: CHA 

RSET ::3: CALL DELSPRITE :: CALL SOUND :: 

EX se Base GO:-25 COL EULT SEC EU 

LZ2 55 K 35 LI S es Ch ss !oF-— 

1840 ! 

1860 ! 
1 


annulation du 
"PRE-SCAN" 


initialisation des 

1880 tableaux pour 

1900 ! musique 

1920 ! 

1940 FOR EK=Q0 TO 45 :: READ F1(R),Kk :: D( 
H)=KXK150 :: F2(H)=2KF1(H):: F3CR)=F1 (EH) / 
2 :5 NEXT B 


1960 ! 

1980 ! redefinition 

2000 ! des caracteres 

Z020 ! 

2040 FOR R=32 TO 145 :: READ C$ 

CHAR (E,CH):: NEXT ER 

2060 ! 

2080 ! formation du sapin 

2100 ! 

2120 FOR EX=1 TO Z4 :: FOR BY=9 TO 24 :: 
READ C :: CALL HCHAR(EX,RY,C):: NEXT EY 
:: NEXT EX 

2140 ! 

2160 ! couleurs ecran 

2180 ! et caracteres 

2200 ! 

2220 CALL SCREEN(IS5):: FOR R=i TQ 11 :: 

READ COL1,COL2Z :: CALL COLOR(E,COL1,COL2 

22 NEXT B 

Z240 ! 

2760 ! positions et couleurs 

2280 ! des lutins 

2500 ! 

2320 FOR B=1 TO 28 :: READ COL,LI,CO :: 

CALL SPRITE(#E,ER+115,C0L,LI,C0):: NEXT K 

2:40 ! 

2360 ! modifications 

2380 ! aleatoires des 

2400 ! couleurs et 

(l 
} 


#3 CALL 


2420 ! controle du clavier 
2440 ! 

2480 CALL KEY(O,K,S):: 
THEN 2580 ELSE IF K=70 OK K= 
Q 

2480 RANDOMIZE :: COL=INT(RNDK13)+4 :: I 

F COL=13 OR COL=15 THEN 2500 ELSE CALL C 

OLOR (#INT (RNDK26) +1,C0L) 

2500 CALL COLOR(11,INT(RNDK13)+4,13):: G 

OTO 2460 

25320 ! 

2540 ! musique 

2560 ! 

2580 FOR EB=0 TO 45 :: CALL SOUND(D(E),F1 
(E),2,F2(B),6,F3(B),15):: NEXT B :: GOTO 
24840 

2600 ! 

2620 ! arret du programme 

2640 ! 

266Q CALL CLEAR :: CALL DELSFRITE (ALL) :: 
CALL CHARSET :: CALL SCREEN(8):: DISFLA 
Y AT(1,1):"""99 MAGAZINE""" :: DISFLAY À 
T(3,1):"VOUS SOUHAITE" 

2680 DISFLAY AT(5,1):"UN JOYEUX NOEL" 
DISPLAY AT(7,1):"ET UNE RONNE ANNEE" 
DISPLAY AT(11,1):"RENDEZ-VOUS EN 1984., 


IF K=77 OR K=109 
102 THEN 266 


2700 FOR R=Q TO 2000 :: NEXT K :: CALL C 
LEAR :: END 
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PARSEC est un logiciel de jeu 
commercialisé par Texas Instruments 
sous forme de module enfichable. Ce 
jeu, de type ‘spatial”, n’a pas grand 
chose à envier aux jeux de cafés et 
autres estaminets. En effet, les bruita- 
ges sont excellents et l’utilisation du 
mode BIT-MAP (uniquement accessi- 
ble depuis un programme en assem- 
bleur ou en Pascal) a permis la réali- 
sation d’un graphisme très soigné. 
De plus, ce jeu utilise le synthétiseur 
vocal. Celui-ci n’est pas indispensa- 
ble mais augmente sensiblement l’in- 
térêt. Par contre, bien qu’il soit possi- 
ble d'utiliser PARSEC avec le seul 
clavier, les joysticks sont pratique- 
ment indispensables. 


Plantons le décor 


Vous êtes le pilote d’un vaisseau spa- 
tial baptisé ’PARSEC” (le parsec est 
une unité de distance équivalente à 
3,26 années lumière) et vous survo- 
lez une planète étrangère. Le sol, 
parsemé d'obstacles, défile à une vi- 
tesse proportionnelle à celle de votre 
vaisseau. Le ciel, étoilé, défile envi- 
ron deux fois moins vite que le sol et 
donne ainsi une impression de pro- 
fondeur. Le bas de l'écran est ré- 
servé aux indications sur le déroule- 
ment du jeu. Pour ceux qui 
disposent du synthétiseur, une voix 
féminine (hé oui !), trés bien définie, 
donne quelques indications supplé- 
mentaires. 


But du jeu 


Des vaisseaux étrangers cherchent à 
vous détruire. Pour vous défendre, 
vous disposez d’un laser, mais un 
problème de refroidissement vous 
empêche de tirer en continu. Une 
pression trop insistante sur le bouton 
de tir provoque l'explosion de PAR- 
SEC. Le but du jeu est la destruction 
d'un maximum d’appareils étrangers. 
Vous disposez, en début de partie, 
de cinq vaisseaux. Ce nombre est 
augmenté en fonction du score. La 
partie se termine lorsque tous vos 
appareils sont détruits. 


Les adversaires 


Plusieurs types de vaisseaux cher- 
chent à vous abattre. Certains es- 
saient de vous percuter alors que 
d’autres, en plus, disposent de ”’mis- 
siles photons” pour vous détruire. 
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PARSEC à l'essai 


Les SWOOPERS essaient de vous 
percuter. Leur vitesse augmente si 
vous ne réussissez pas à les détruire 
rapidement. 


Les URBITES disposent de deux 
canons à photons qu'ils utilisent lors- 
que vous traversez leurs trajectoires. 


Les CHASSEURS LFT se compor- 
tent de la même façon que les 
SWOOPERS mais sont plus agressifs. 








Les DRATAMITES sont équipés d’un 
missile et suivent vos déplacements 
avec une rapidité affolante. 


Les SOUCOUPES, redoutables, vous 
attaquent par derrière et, si elles ne 
vous touchent pas du premier coup, 
font demi-tour et essaient de vous 
percuter par l'avant. 


Les BYNITES sont assez lents mais 
deviennent invisibles dès le deuxième 
niveau de jeu. Seuls leurs projectiles 
restent visibles. 


Marianne Sutz 


Les SATELLITES DESTRUCTEURS 
apparaissent par surprise à partir du 
quatrième niveau. Ce sont les enne- 
mis les plus dangereux. 


Lorsque vous aurez affronté ces ap- 
pareils, et avant de changer de ni- 
veau de jeu, il vous faudra traverser 
une barrière d’astéroïdes. 


Niveaux de jeu 


Le jeu comporte seize niveaux. Au 
deuxième, vous devrez toucher les 
vaisseaux deux fois pour les détruire. 
À partir du troisième niveau, il faudra 
les toucher 3 fois. Au-delà, ils appa- 
raîtront de plus en plus près de votre 
appareil. Le fait de changer de ni- 
veau augmente aussi la longueur de 
la barrière d’astéroïdes. 


Ravitaillement 
en carburant 


Une bande rouge située en bas de 
l'écran représente le contenu de 
votre réservoir de carburant. Il faut 
faire le plein de temps en temps. 
Ceci serait très simple si les stations 
de ravitaillement n'étaient pas pla- 
cées à l’intérieur de tunnels aux 
parois irrégulières. Si vous réussissez 
à sortir du premier tunnel, le pro- 
chain ravitaillement se fera dans un 
tunnel plus long. Il en va de même 
pour le troisième ; ce troisième tun- 
nel est interminable et il est très diffi- 
cile d’en sortir indemne. 


Si vous tombez en panne de carbu- 
rant, vous verrez votre vaisseau 
s'écraser mollement sur le sol de la 
planète. 


Conclusion 


PARSEC est certainement le meilleur 
jeu d’action actuellement commercia- 
lisé en France pour le TI-99/4A. 


Les bruitages sont plus vrais que na- 
ture et le graphisme beaucoup plus 
sophistiqué que sur les programmes 
précédents. Il est vrai que ces pro- 
grammes étaient conçus pour être 
utilisés sur le TI-99/4, lequel ne 
comportait pas le mode BIT-MAP. Il 
faut cependant signaler un défaut : 
lors des changements de niveau, il 
arrive qu’un Vaisseau explose sans 
raison apparente. Malgré cela, PAR- 
SEC est définitivement à conseiller 
aux amateurs de jeux ’’galactiques”. 





41 


42 


LOGO est-il seulement 
un langage pour enfants ? 


Sophie 


Nous avons jeté, dans l’article précé- 
dent, un rapide coup d'oeil sur le 
monde des lutins. C’est un domaine 
accessible directement à de jeunes 
enfants, dès le Cours Préparatoire (5 
à 7 ans) mais utilisable aussi bien au- 
delà de la scolarité primaire : la simu- 
lation de mouvements (mouvement 
uniforme, uniformément accéléré, si- 
nusoïdal, etc...) n’est pas précisément 
étudiée au niveau de l’école élémen- 
taire. 


Aujourd’hui, nous vous proposons 
une petite excursion dans le domaine 
de la très célèbre tortue. Prévoyez de 
bonnes chaussures, car, si nous 
commençons à un niveau très sim- 
ple, nous vous emmènerons voir des 
exemples un peu plus retors ! 


La tortue a commencé à faire partie 
de LOGO (et a été reprise ensuite 
par d’autres langages, comme Pas- 
cal) au début des années 1970, c’est- 
à-dire quand LOGO avait déjà à peu 
près cinq ans d'existence. Aupara- 
vant, on traitait surtout deux domai- 
nes plus traditionnels, dont nous 
n'avons pas encore parlé en détail, 
les nombres et le texte. Les premiè- 
res tortues étaient des robots relative- 
ment encombrants, d'environ deux 
pieds - pardon, soixante centimètres 
- de diamètre, munis de deux roues, 
d'un phare que l’on pouvait allumer 
ou éteindre, d’un avertisseur sonore 
que l’on pouvait actionner, d’un tra- 
ceur que l’on pouvait mettre en posi- 
tion haute (quand on s’intéressait 
principalement aux déplacements) ou 
basse (si l’on réalisait des desins) et 
de divers capteurs, en particulier des 
palpeurs capables de renvoyer à l’or- 
dinateur de l'information quand la 
tortue rencontrait un obstacle. Tous 
les organes” de ce robot étant pro- 
tégés par une coupole hémisphérique 
en plastique transparent, cet objet 
baladeur qui se déplaçait lentement 
au sol pouvait raisonnablement se 
voir dénommé tortue. Certaines 
races de tortues étaient reliées par un 
câble à l'ordinateur, comme celle du 
Groupe LOGO du M.IT.; d’autres, 
comme la tortue baptisé Irving, chez 
Bolt, Beranek et Newman, étaient té- 
lécommandées. 


Depuis, la technique ayant quelque 
peu évolué, on dispose de tortues 
d'écran (par opposition aux ancien- 
nes tortues de sol), qui apparaissent 
simplement comme un petit triangle 
sur l’écran du moniteur. 

La tortue est, si vous voulez bien me 
permettre un raccourci audacieux, un 


point qui regarde. Autrement dit, elle 
se trouve ici, en ayant le nez, ou le 
regard, dirigé par là. C’est pour cette 
raison que les tortues d'écran sont 
schématisées par un triangle. 


Figure 1 


Essayons de terminer ce rectangle. 
Ne lui proposez pas : 

e DESCENDS 40 

sinon elle vous répondrait : 

e APPRENDS-MOI-DESCENDS 


Manifestement, il faut la faire tourner, 
ici. En se tortillant au besoin un peu 
sur son siège pour s'identifier à la 
tortue, n'importe quel enfant finira 
par trouver : 

e DROITE 90 


ELLE REGARDE PAR LA 


Cette tortue se commande à l’aide 
d'ordres extrêmement simples : 
AVANCE et RECULE pour la faire 
changer d'emplacement (il faut lui 
préciser le nombre de pas dont elle 
doit se déplacer), DROITE et GAU- 
CHE pour la faire pivoter dans le 
sens des aiguilles d’une montre, ou à 
l'inverse dans le sens trigonométrique 
(il faut lui indiquer le nombre de 
degrés dont elle doit tourner). A 
l’aide de ces seuls quatre ordres, on 
va pouvoir entreprendre quelques 
dessins. Nous introduirons de nou- 
veaux primitifs (termes déjà connus 
de l'ordinateur) au fur et à mesure 
des besoins. 

De même qu’on appelle les lutins, il 
faut tout d’abord appeler la tortue. 
La séquence : 


e APPELLE TORTUE 
e AVANCE 40 
e DROITE 90 
e AVANCE 60 


réalise un L à l’envers: 





ELLE EST ICI 


Elle regarde maintenant vers le bas. 
Il ne nous reste plus qu’à lui faire tra- 
cer un L ‘vu dans un miroir”, en la 
faisant redescendre puis rejoindre 
son point de départ au centre de 
l'écran. Essayons : 

e AVANCE 40 GAUCHE 90 

AVANCE 60 


Hé bien ! C’est raté, car elle a tourné 
vers sa gauche qui, puisqu'elle avait 
la tête vers le bas, est à votre droite. 


Soit on efface tout et on recom- 
mence, en changeant le dernier 
GAUCHE 90 en DROITE 90, soit on 
pense qu'on est plus tout à fait à 
l’époque de Jules Ferry - même si le 
traceur de notre tortue continue 
d’être nommé PLUME - et que nos 
modernes écoliers évitent les ratures 
à l’aide d’un feutre effaceur : 

e EFFACEUR 

e RECULE 40 

voilà le trait déplaisant disparu. 
Donc, il fallait mettre DROITE au lieu 
de GAUCHE : 

e DROITE 90 

Mais ceci ne fait que remettre la tor- 
tue la tête en bas. Il nous faut encore 
la faire pivoter : 

e DROITE 90 AVANCE 60 

Tiens, un côté fantôme. Hé oui, nous 
avons toujours notre effaceur au lieu 
d’un traceur. Revenons sur nos pas : 

e RECULE 60 

puis reprenons de quoi dessiner : 

e POSEPLUME 

e AVANCE 60 


Ouf, ça y est! Elle m'a dessiné un 
rectangle. Curieusement, si je lui de- 
mande : 
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e RECTANGLE 

l'ordinateur répond : 

e APPRENDS-MOI RECTANGLE 
Là encore, c’est très simple : 


e POUR RECTANGLE 


On passe alors sur une page verte (la 
tortue est confortablement installée 
sur une feuille de salade pour écou- 
ter ce qu’on lui enseigne ?) et en ap- 
puvant sur ENTER on crée une ligne 
sur laquelle on va pouvoir inscrire les 
instructions : 

e AVANCE 40 DROITE 90 

e AVANCE 60 DROITE 90 

e AVANCE 40 DROITE 90 

e AVANCE 60 

FCTN 9 pour quitter la page verte et 
revenir à l’ancienne page bleue. Le 
précédent rectangle est toujours là. 
Tapons : 

e RECTANGLE 

en voilà un autre à côté, puis : 

e RECTANGLE 

et un autre au-dessous. 


On peut continuer. Mais là, il se 
passe quelque chose d’inattendu : au 
lieu d'’interférer avec les lignes de 
texte au bas de la page, un bout du 
rectangle se trouve reporté en haut 
de l’écran : 


Figure 3 


ANGLE SCOLAIRE DE LA FIGURE 
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Les enfants expliquent cela très joli- 
ment: ‘elle n'avait plus assez de 
place en bas, alors elle a continué à 
descendre en haut”. 


Et si nous lui apprenions à dessiner 
un triangle, pour construire un mou- 
lin à vent à l’aide du rectangle en 
position ’’debout” ? Pour nous sim- 
plifier l'existence, nous allons lui en- 
seigner un triangle équilatéral ; il faut 
donc trois côtés de 30 pas, et chacun 
sait (au moins parmi les adultes) que 
dans un triangle équilatéral les angles 
mesurent 60 degrés. Allons-v : 
e POUR TRIANGLE 
e REPETE 3 [AVANCE 30 DROITE 
60] 
e FIN 
(FIN est déjà écrit sur la page édi- 
teur, inutile de le retaper, sinon l’or- 
dinateur va protester, par un ’FIN 
DE QUOI ?” péremptoire). 


Pensons maintenant aux problèmes 
de positionnement : nous voulons un 
rectangle debout et non couché, 
donc il faut commencer (après avoir 
obtenu une page propre grâce à EF- 
FACEECRAN - attention, en un seul 
mot -) par tourner la tortue : 


e GAUCHE 90 
e RECTANGLE 


Voilà les murs 


Figure 4 


Il nous faut alors reparcourir la moitié 
du rectangle, sinon notre toit va s’en- 
foncer dans le sol ! 


e DROITE 90 AVANCE 40 
e DROITE 90 AVANCE 60 


Attention ! La tortue regarde mainte- 
nant vers le Nord (ou vers le pla- 
fond, selon le système de référence 
auquel vous vous raccrochez l): il 
faut d’abord l’incliner un peu, pour 
la mettre dans la direction de la 
pente du toit De combien ? 60 ? 
Cela paraît beaucoup ! Si on essayait 
un peu moins, 40 par exemple. 


e DROITE 40 
e TRIANGLE 


Aïe, aïe, aïe ! 


Figure 5 


Ce n’est pas un toit, ça ! 

Que s'est-il passé ? Tout simplement, 
nous avons appliqué machinalement 
de vieilles connaissances, sans nous 
assurer qu'elles étaient pertinentes 
dans la situation présente. Car la tor- 
tue n’a que faire de l’angle scolaire 
de la figure, ce qui l’intéresse, c’est 
l'angle que balaie son regard (pour 
reprendre certaine terminologie fami- 
lière aux spécialistes de cinématique). 


Figure 6 


———— SUPPLEMENT DE 60° 
( SOIT 180 - 60 = 120°] 
ANGLE BALAYE PAR LE REGARD 
DE LA TORTUE 
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Nous allons bien faire appel à nos 
souvenirs de géométrie élémentaire 
(ou construire une connaissance 
équivalente sur les angles supplé- 
mentaires), mais pas à l’aveuglette Et 
maintenant, nous pouvons même ré- 
pondre avec précision à notre recher- 
che de l'orientation de la tortue pour 
la pente du toit, au lieu de nous 
contenter d’approximations. La mé- 
thode des approximations successi- 
ves, qui est effectivement beaucoup 
employée par les élèves, est excel- 
lente, mais beaucoup plus coûteuse 
en temps: c’est la raison pour la- 
quelle, par souci d'économie, il va 
devenir plus payant de raisonner que 
d'essayer et recommencer. 


Figure 7 


| 
REGARD DE LA | 


TORTUE À LA FIN DU |; 


TRACE DES MURS 


L'angle inconnu” est le complémen- 
taire de 60, donc 30 degrés. Je vous 
laisse le soin de piloter votre tortue 
pour réaliser les ailes. Je vous 
conseille de commencer par une aile, 
que vous baptiserez par exemple 
AILE quand vous enseignerez à la 
machine à se débrouiller toute seule, 
puis de coordonner les quatre ailes 
avec des rotations adéquates - là en- 
core, on va retrouver des calculs sur 
les angles - en une procédure bapti- 
sée 4 AILES par exemple. Il ne vous 
restera plus alors qu’à lui apprendre 


e POUR MOULIN 
e RECTANGLE 
e TRIANGLE 

e AAILES 

e FIN 


Figure 8 


Voilà un projet graphique où l’objec- 
tif de l'élève est de se rendre maître 
de la tortue et de lui faire réaliser un 
dessin, en général figuratif. Après cet 
exemple qui fait travailler les connais- 
sances sur ordre de grandeur, me- 
sure de longueurs et d’angles, no- 
tions de symétries, etc, voyons un 
projet géométrique. Là, le but que 
s'assigne, en général implicitement, 
l'enfant n’est pas seulement le tracé 
d’une figure, mais bien plutôt la 
compréhension des propriétés carac- 
téristiques de l'objet géométrique 
considéré. 


Commençons par un projet simple : 
un carré. La première description du 
carré que l’on peut constater à tra- 


vers les réalisations d’enfants avec 
LOGO est ”c’est un machin qui est 
quatre fois pareil”. C’est pourquoi on 
trouvera beaucoup d'exemples, y 
compris chez des élèves de niveau 
collège, tels que : 


e REPETE 4 [AVANCE 50 DROITE 
50] 


ou : 


e REPETE 4 [AVANCE 100 
DROITE 100] 


qui vont amener à une réflexion 
complémentaire sur la notion de 
translation et de rotation, et accroître 
le bagage intuitif sur l’angle. 

On arrive finalement à la description 
d’un carré de 30 pas de côté : 


e ARE 4 [AVANCE 30 DROITE 
] 


ou d’un carré de 70 pas de côté : 
e REPETE 4 [AVANCE 70 DROITE 
90] 


et immanquablement, au bout d’un 
temps plus ou moins long, s'exprime 
l'intérêt pour un moyen de ne pas 
fixer d'emblée cette longueur du 
côté, mais de se réserver le choix au 
moment de l’utilisation. 


La notion de paramètre est alors 
mère, et l’on arrive à une procédure 
paramétrée : 


e POUR CARRE : LONGUEUR 
e REPETE 4 AVANCE : 


LONGUEUR DROITE 90] 
e FIN 


À ce moment de l'approche du 
concept, la syntaxe ”:” est unique- 
ment justifiée comme discriminateur 
entre un terme qui indique une ac- 
tion à entreprendre (AVANCE, 
CARRE), et un terme qui désigne 
une information. 


e CARRE 30 


dessine un carré de trente pas de 
côté et : 


e CARRE 70 


en trace un de 70 pas. 

Comme précédemment avec le REC- 
TANGLE, le TRIANGLE, et 4AILES, 
cette nouvelle procédure peut être 
utilisée dans d’autres procédures : 


e POUR ECHELLE : TAILLE 

e REPETE 5 [CARRE : TAILLE 
AVANCE : TAILLE] 

e FIN 


Ici, on a à nouveau une procédure 
paramétrée. On peut effectuer des 
manipulations sur les paramètres : 


e POUR BRACELET : TAILLE 

e REPETE 10 [CARRE : TAILLE 
AVANCE : TAILLE/2] 

e FIN 


Le paramètre peut, au choix de l’au- 
teur, porter ou non le même nom 
que celui de la procédure CARRE. 
Une procédure paramétrée peut ser- 
vir à créer une procédure non para- 
métrée : 

POUR CARRE.A.MALICES 
INVERSEUR 

CARRE 10 

CARRE 20 

CARRE 30 

CARRE 40 

CARRE 50 

CARRE 60 

CARRE 70 

CARRE 80 

CARRE 90 

CARRE 100 

FIN 


Pouvons-nous nous servir de cet 
acquis pour dessiner une spirale car- 
rée ? Il s’agit d'avancer d’un certain 
nombre de pas, de pivoter à angle 
droit, d'avancer un peu plus que la 
fois précédente, de pivoter à nou- 
veau à angle droit, et de recommen- 
cer cette séquence de deux instruc- 
tions. 


On trouve ici un schéma de pensée 
extrêmement familier, depuis 

la meilleur façon d’marcher 

c’est encore la nôtre 

c'est de mettre un pied d’vant l’autre 
et d’recommencer.” 

jusqu'aux motifs jacquard en tricot 
ou les points fantaisie au crochet. 


Si, en général, les patrons de tricot 
ou de crochet vous indiquent le 
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nombre de fois qu’il convient de ré- 
péter le motif, dans la première cir- 
constance - la marche - on le prévoit 
rarement à l’avance! On a plutôt 
tendance, avant de recommencer, à 
vérifier qu’on n’a pas encore atteint 
le but de la promenade, et, si l’on est 
arrivé à destination, on s'arrête. C’est 
exactement ce que nous allons faire 
pour la spirale; nous nous arrêterons 
quand le côté sera devenu grand, 
disons supérieur à 100 : 


e POUR SPIRALE.CARRE : COTE 
e AVANCE : COTE DROITE 90 

e SI: COTE>100 ALORS STOP 
e SPIRALE.CARRE : CO+10 

e FIN 


L'utilisation de la procédure elle- 
même au cours de sa propre défini- 
tion s’appelle récursion. 


Si l’on ne veut pas fixer à l’avance la 
quantité dont on augmente la lon- 
gueur du côté à chaque étape, on 
peut se constituer une procédure dé- 
pendant de deux paramètres, le côté 
et l'augmentation : 


e POUR SPICAR : COTE : 
AUGMENTATION 

e AVANCE : COTE DROITE 90 

e SI: COTE>100 ALORS STOP 

e SPICAR : COTE+ : 
AUGMENTATION : 
AUGMENTATION 

e FIN 


Si l’on souhaite’ une spirale pas né- 

cessairement carrée, rien de plus fa- 

cile : on introduit un troisième para- 

mètre, l'angle dont on tourne à 

chaque étape. 

e POUR SPIRALE : COTE : PLUS : 
ANGLE 

e AVANCE : COTE DROITE : 
ANGLE 

e SI: COTE>100 ALORS STOP 

e SPIRALE : COTE+ : PLUS : 
PLUS : ANGLE 

e FIN 


L'ordre dans lequel sont annoncés 
les paramètres sur la ligne de titre 
n’est pas nécessairement celui dans 
lequel ils sont utilisés au cours de la 
procédure. Rien ne vous empêche 
de modifier la façon dont les para- 
mètres interviennent lors des appels 
successifs : 


e POUR ECHANGE : COTE : 
ANG 


LE 
e AVANCE : COTE DROITE : 
ANGLE 
e SI: COTE>100 ALORS STOP 
e ECHANGE : ANGLE : COTE 
e FIN 


ou : 

e POUR FOLKLO : COTE : PLUS : 
ANGLE 

e AVANCE : COTE DROITE : 
ANGLE 

e SI: COTE>100 ALORS STOP 

e FOLKLO : COTE+ : PLUS : 
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PLUS*=2 : ANGLE- : PLUS 
e FIN 


On pourra se poser des questions sur 
l'utilité du test dans ECHANGE (lar- 
rêt de panique s'obtient en appuyant 
sur FCNT 9!) On commence à se 
faire une légère idée de la foule de 
possibilités qu'offre un espace de pa- 
ramètres de dimension 3... Cette 
souplesse et cette richesse incite déjà 
à penser que la récursion est autre 
chose qu’une simple boucle FOR- 
NEXT. 


Essayons de regarder cela de plus 
près. Reprenons la première spirale 
carrée, à laquelle nous ajoutons une 
instruction pour afficher la longueur 
du côté (pour voir toutes les valeurs, 
on ne va pas à la ligne après l’affi- 
chage, mais on reste sur la même 
ligne ; -pour séparer deux valeurs 
consécutives, on fait afficher, toujours 
en restant sur la même ligne, des 
points de suspension). 


e POUR SPI : COTE 

e AVANCE : COTE DROITE 90 
e AFR : COTE AFR ”.…. 

e SI: COTE>100 ALORS STOP 
e SPI: COTE+10 

e FIN 


Quand on tape : 


e SPI5 
la spirale carrée se dessine, et au fur 
et à mesure s'inscrivent les valeurs 
du côté : 


5...15...25...35...45...55 
05:..75:.,,85..:95...105... 


Bon, rien de très surprenant jusque 
là. 


Essayons cette autre procédure : 


e POUR IPS : COTE 

e AVANCE : COTE DROITE 90 
e SI: COTE>100 ALORS STOP 
e IPS : COTE+10 

e AFR : COTE AFR ”.… 

e FIN 


Avant de regarder la suite, voudriez- 
vous avoir la gentillesse d’essayer 
d'imaginer ce qui va se passer avec 
IPS ? Attention, défense de tricher : 
on n’a pas le droit de chercher tout 
de suite la réponse, ni dans la revue, 
ni en faisant exécuter la procédure 
IPS par l'ordinateur !!! 


Alors, qu’aviez-vous prévu? Voici 
quelques suggestions que nous avons 
déjà entendues : 

a) la procédure n'affiche rien 

b) la procédure n'affiche qu’une 
seule valeur (selon les cas, on pro- 
pose 5 ou 105) 

c) la procédure fait la même chose 
que SPI 

d) la procédure affiche la longueur 
totale de la spirale. 


Si vous avez d’autres propositions, je 
suis preneur | 


Essayez maintenant IPS 5 sur votre 
ordinateur. La tortue commence par 
dessiner la spirale, mais sans rien tra- 
cer. Les tenants de la solution (a) 
commencent à se dire: tiens, tiens, 
j'avais donc bien deviné ? Hun pa- 
quet d’affichage : 
95...85...75...65...55 
.….45:..35::25:..15.:5 


Mais pourquoi diable est-ce à l’en- 
vers ? 


Regardons cela de plus près. Quand 
on tape IPS 5, la procédure IPS 
commence, avec la valeur 5 pour: 
COTE. Elle fait avancer la tortue de 
5 pas, et la fait tourner de 90 degrés 
vers la droite. Comme 5 est bien loin 
d’être supérieur à 100, on ignore le 
STOP, et alors on a besoin que 
s'exécute IPS 15. Mais IPS 5 N'a pas 
terminé son travail ! Cette procédure 
se met en quelque sorte en attente, 
et appelle : 


e IPS 15. 


Cette procédure (une copie de IPS) 
commence, avec la valeur 15 pour : 
COTE. A son tour, elle fait bouger la 
tortue, puis se trouve arrêtée en plein 
élan, et appelle un autre exemplaire 
de cette même procédure. 


Sautons quelques étapes, et regar- 
dons ce qui se passe avec 85 comme 
valeur pour : COTE. 


e IPS commence avec la valeur 85 
pour : COTE. Là encore, après 
avoir fait bouger la tortue, elle 
ignore le STOP, et appelle une 
nouvelle version de IPS ; 


IPS commence avec la valeur 95 
pour : COTE, bouge toujours la 
tortue, 95 n’est pas encore une 
valeur assez grande pour que le 
test d’arrêt s'applique. On a donc 
recours à un nouveau IPS. 


Cet IPS commence, avec la valeur 
105 pour : COTE. La tortue avance 
et pivote, comme elle l'avait fait lors 
de chacun des précédents appels. 
Mais cette fois-ci, 105 étant supérieur 
à 100, la procédure a terminé son 
travail et ’rend son tablier” à son 
employeur, c’est-à-dire retourne le 
contrôle à IPS 95. 


Or IPS 95 a encore une ligne d’ins- 
tructions à exécuter, l'affichage de sa 
propre valeur de: COTE, soit 95. 
Puis, à son tour,elle rend le contrôle 
à la procédure qui l’a appelée... et 
ainsi de suite jusqu’à la fin de l’exé- 
cution de la procédure IPS 5. 


Autant la récursion terminale (celle 
de SPI et des exemples antérieurs) 
où l’appel à la procédure se fait sur 
la dernière ligne d'instructions est re- 
lativement facile à interpréter, autant 
la récursion non terminale paraît, aux 
premiers essais, tout-à-fait dérou- 
tante. 
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C’est pourtant un outil extrêmement 
puissant, dont disposent tous les lan- 
gages de haut niveau récents. 


Donnons deux exemples, dans le cas 
de la tortue toujours, (mais ceci peut 
être appliqué dans les autres domai- 
nes LOGO), bien sûr). 


Tout d’abord un arbre binaire : 
au niveau 1, c’est seulement un 
tronc. 


Figure 9 


Au niveau 2, le tronc a deux bran- 
ches. 


Figure 10 
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Au niveau 3, chaque branche se di- 
vise en deux. 


Figure 11 


On passe du niveau n au niveau 
n+1l en subdivisant en deux chaque 
rameau terminal. Nous allons rac- 
courcir les branches à chaque ni- 
veau, pour faire plus nature et égale- 
ment pour éviter d’'envahir trop 
rapidement tout l’écran. 


Regardons ce qui se passe à la pre- 
mière division en deux branches; on 
remarquera que c'est exactement le 
même processus qui se répète en- 
suite : 


e POUR BRANCHE : LONGUEUR 
Il faut d’abord tracer la branche prin- 


cipale (au premier coup, c’est le 
tronc) : 


EXTENSION 16K 
complète, fournie avec alimentation 


EXTENSION 32K 
complète, fournie avec alimentation 


27,Rue Vaneau 75007 PARIS - Tél: 551 66.77 


l'expédition de votre commande. 


TOUS NOS PRIX SONT T.T.C. 


e AVANCE : LONGUEUR 


puis tourner de l’angle adéquat pour 
amorcer la branche gauche : 


e GAUCHE 45 
et la tracer : 
e BRANCHE : LONGUEUR-S5 


ensuite pivoter pour se mettre dans 
la direction où va pousser la 
deuxième branche : 


e DROITE 90 
tracer la deuxième branche : 
e BRANCHE : LONGUEUR-S5 


Mais, comme le processus est symé- 
trique, on peut s'attendre à avoir une 
procédure symétrique. Une autre rai- 
son est qu'ici on est resté en bout de 
branche, et qu’au niveau suivant on 
va donc rallonger cette branche : 


e GAUCHE 45 
e RECULE : LONGUEUR 


Il faut maintenant penser qu’au ni- 
veau 0 le processus doit s'arrêter : on 
arrive alors à la procédure que nous 
allons rebaptiser : 


e POUR ARBRE : LONGUEUR : 
NIVEAU 
SI : NIVEAU=0 ALORS STOP 
AVANCE : LONGUEUR 
GAUCHE 45 
ARBRE : LONGUEUR —5 : 
NIVEAU -1 
DROITE 90 
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e ARBRE : LONGUEUR -S : 
NIVEAU -—1 

e GAUCHE 45 

e RECULE : LONGUEUR 

e FIN 


Cette procédure utilise donc une 
double récursion non terminale. Voici 
l'effet obtenu au niveau 4, toujours 
avec cette ”’simple” procédure de dix 
lignes : 

Figure 12 


peut introduire deux appels récursifs 
(dont un au moins est nécessaire- 
ment non-terminal !), on peut s’offrir 
le luxe de procédures un peu plus 
riches, quoique toujours extrême- 
ment courtes. 


Par exemple, la célèbre courbe en 
flocon de neige se réalise au moyen 
de deux procédures : 


e POUR FLOCON : TAILLE : 
PROFONDEUR 

e REPETE 3 [COTE : TAILLE : 
PROFONDEUR DROITE 120] 

e FIN 


et la procédure COTE qui utilise 
quatre appels récursifs : 


e POUR COTE : TAILLE : 
PROFONDEUR 

e SI: PROFONDEUR=0 ALORS 
AVANCE : LONGUEUR STOP 

e COTE : LONGUEUR/3 : 
PROFONDEUR -— 1 

e DROITE 120 


Figure 13 
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Bien XX 





e COTE : LONGUEUR/3 : 
PROFONDEUR -1 

e GAUCHE 60 

e COTE : LONGUEUR/3 : 
PROFONDEUR -1 

e FIN 

Au niveau 0, COTE trace tout sim- 

plement un segment : 


Au niveau 1, c’est un segment 
comportant une dent : 


Figure < 


Au niveau 2, un dessin plus dentelé 
encore : 


Figure 15 


; 


Remarquons qu’un paramètre et une 
procédure peuvent avoir le même 


nom (par exemple COTE), sans que 
cela perturbe en rien l’ordinateur. Il 
vaut mieux l’éviter, le cerveau hu- 
main ayant, lui, tendence à s’em- 
brouiller). 


Vous retrouverez ces deux exemples, 
et bien d’autres, faisant appel à la ré- 
cursion, dans Turtle Geometry, 
d’Abelson et Di Sessa, M.IT. Press, 
1981. Attention, ce n'est pas un livre 
pour l’école primaire : on y traite de 
sujets du niveau maîtrise de maths 
ou de physique, comme les géomé- 
tries non euclidiennes, la topologie 
algébrique, la relativité généralisée. 


Outre ces capacités récursives, qui - il 
faut bien le reconnaître - sont un peu 
déroutantes au début (mais peut-être 
pas plus que l’incongru A=A+1 en 
Basic), la tortue LOGO peut s’adap- 
ter à la géométrie cartésienne la plus 
traditionnelle. On peut avoir un cer- 
tain nombre de renseignement sur 
l’état de la tortue, en particulier son 
abscisse : 

@e AFFICHE XCOR 

son ordonnée 

e AFFICHE YCOR 

ainsi que son cap, c’est-à-dire l’angle 
de son regard au moment présent 
par rapport à sa direction initiale 
quand on à fait apparaître la tortue 
sur l'écran, compté positivement 
dans le sens des aiguilles d’une mon- 
tre et mesuré en degrés : 


e AFFICHE CAP 


On peut aussi positionner la tortue 
directement en un endroit dont on 
connait les coordonnées avec : 


e FIXEXY abscisse ordonnée 


ou lui imposer de regarder dans une 
direction donnée avec : 


e FIXECAP valeur 


Voilà, je pense, qui vous aura 
convaincu que la réponse à la ques- 
tion posée par le titre est bien évi- 
demment négative. 


Si vous voulez m'écrire, vous pouvez 
m'adresser du courrier au journal, 
ou, de préférence, à GREPACIFIC, 
51 Boulevard des Batignolles, 75008 
PARIS. Je vous rappelle que nous 
utilisons le LOGO sur le TI-99/4A 
(ainsi que plusieurs autres versions 
de LOGO) mais que nous ne 
connaissons pas beaucoup les autres 
ressources de cette excellente ma- 
chine - nous avons déjà fort large- 
ment à faire pour tenter d'exploiter 
toutes les richesses du TI-LOGO. 
N'essayez pas de venir nous voir à 
l'adresse indiquée, c’est seulement 
notre boîte aux lettres : nous travail- 
lons dans diverses écoles, dans des 
collèges, en Ecoles Normales, en 
Universités, et dans d’autres condi- 
tions encore... et le terrain nous ab- 
sorbe beaucoup. 
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Le Mastermind en Assembleur 


Jean-Luc Bazanegue 


Ces derniers temps, nous avons reçu 
un grand nombre de lettres de lec- 
teurs nous demandant de publier des 
programmes en assembleur. Comme 
vos désirs sont des ordres, nous vous 
proposons cette fois un Master Mind 
écrit en ce langage. 


Ce programme met en évidence la 
supériorité de l’assembleur par rap- 
port au Basic. Deux modes d'’affi- 
chage sont utilisés : le mode texte et 
le mode Bit-Map. 


Le mode texte permet d'obtenir un 
affichage sur 40 colonnes. Le mode 
Bit-Map autorise un affichage point 
par point, il est donc possible 
d'adresser indépendamment les 
49152 points (ou pixels) constituant 
l'image générée par le TI-99/4A. 
Avec ce mode, deux couleurs par 
ligne de 8 pixels peuvent être choi- 
sies (couleur des points on” et cou- 
leur des points ”’off”.) 


Particularité du jeu 


Le jeu consiste à découvrir, en dix 
essais maximum, un code constitué 
par des couleurs choisies par l’ordi- 
nateur. Ces couleurs sont réparties 
dans cinq cases. Le nombre de cou- 
leurs peut varier de deux à dix : cela 
constitue les niveaux de jeu. 


À chaque essai, le TI vous indiquera 
le nombre de couleurs bien et mal 
placées, ainsi que vos erreurs de logi- 
ques. 


Mode d’emploi 
du programme 


Pour utiliser ce programme, il faut 
posséder une extension 32K et une 
unité de disquettes. Le code objet 
doit être chargé en mémoire par un 
programme en Basic Etendu ou en 


Basic TI. La routine suivante peut 
être utilisée : 

10 CALL INIT 

20 CALL LOAD (”DSKI1.MASTER”) 
30 CALL LINK ("MASTER") 


Des indications insérées dans le lis- 
ting permettent de modifier le pro- 
gramme pour qu'il puisse être chargé 
par l'option LOAD AND RUN de 
l’éditeur/assembleur ou de la mini- 
mémoire. 


POURRIEZ -VOUS 

M'INDIQUER LE © 

NUMERO >FFFF Ci 

DE LA MEMOIRE : | 
MVE : 








Touches utilisées 


1 à O0 : couleurs à placer dans une 
case. Un tableau placé sur la droite 
de l'écran donne les correspondan- 
ces couleurs/numéros de couleurs. 

ENTER : validation de l'essai. Si les 


cinq cases ne sont pas occupées, la 
validation est impossible. 


Flèche à gauche (S) : déplacement 
du cadre repère vers la gauche. 


Flèche à droite (D) : déplacement 
du cadre repère vers la droite. 


E : effacement d’une couleur et dé- 
placement du cadre vers la droite. 


AID : abandon. La solution est affi- 
chée. 


QUIT : permet de sortir du pro- 
gramme. Retour à la mire. 

REDO : en fin de jeu, reprise d’une 
nouvelle partie de même niveau 
(même nombre de couleurs). 


BACK : en fin de jeu, retourne à 
l'image d'introduction. Cela permet 
de choisir un niveau de jeu différent. 


Sur l'écran, les chiffres situés dans la 
colonne de gauche indiquent les cou- 
leurs bien placées, et les chiffres dans 
la colonne de droite indiquent les 
couleurs mal placées. 


Lors d’une erreur de logique, une 
flèche vers la gauche indique une er- 
reur par rapport aux couleurs bien 
placées dans les essais précédents. 
Une flèche vers la droite indique une 
erreur par rapport aux couleurs mal 
placées. 


Dans le listing, vous trouverez de 
nombreuses routines très facilement 
implantables dans vos propres pro- 
grammes en assembleur : initialisa- 
tion de la mémoire vidéo pour le 
mode Bit-Map, génération de nom- 
bres aléatoires, affichage d’un point 
sur l’écran, etc... 


Le listing est relativement long et 
vous ne trouverez peut-être pas le 
temps d'effectuer la saisie. Dans ce 
cas, nous pouvons vous envoyer, 
contre 50 FF, une disquette conte- 
nant les sept fichiers source et le fi- 
chier objet. 


“élite “dti anti ni Le Eee 


: MASTER MIND * COFYRIGHT 
* 


“90 MAGAZINE" 


ET JEAN-LUC HAZANEGUE * 


x 
AO A AIO OO OO OO OO OOOODDOODOOOODNEE 
* 


Ce programme doit etre charge 
Etendu ou en Ragic TI avec 


Le PRORBUE de 
© CALL INIT 


a ini-memoire, 


rogramme suivant peut assurer cette tache : 


20 CALL LOAD("DSE1.,MASTER") 
30 CALL LINE ("MASTER") 


modifier ce programme pour 
Ê AND RUN de 1° 


AOK AK A ACHHONACHONACHONOHORE OK AONC HONOR ONE CC ON OO OO OO ONE OO ON 


l'option LOA 
Mini-memaoire., 


* 
*# 
* 
*# 
* 
: Des notes inserees dans le listing permettent de 
* 
X 
* 


u’il puisse etre char 
diteur /Assembleur ou 


ar une routine en KHasic 


e par 
e la 


* 
x 
x 
* 
* 
X 
* 
* 
x 
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*X MASTER A * 
KAXKXAXENAEX 
* La directive COFY permet 
COFY "DSK 1,MASTERA" 
"DSK 1. MASTERT" 
"DSK 1. MASTERR" 
"DSE 1, MASTERC" 
“DSE1.MASTERD " 
"DSK 1, MASTERSF 1" 


Minimem : 


d'assembler simultanement plusieurs fichiers 


* version E/A au ajouter MASTER apres END pour obtenir l'execution 
L ERD automatique du programme apres chargement. 
AO ACHNOH H AOÏOEKK 
*X MASTER À * 
CET TTTCTTTE 
DEF MASTER 
* Version E/A ou Minimem, ajouter 
* REF  VUTK, ee . VMÉU, SCAN, VSER, VAER * (sunprimer l'asterisque) 


VUTR 
VSEU 
VFIEW 
ESCAN 
VORR 
VMER 
* Fage 
TEXTÉ 


BORE 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
aur 
EXT 
TEXT 
TEXT 
HEXT 
TEXT 
FEAT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 


AOC 
PO 
27070 
VIE) 
#201C 
#2028 
FDOPC 
choix du 
— AXKEXX 


, 
x 


* 
# 


# Version E/À ou Minimem : 
ces lignes. 


supprimer 


niveau. Le 
KAXKKEXXX 


—"*X MASTER MIND # ° 


CU XKXXEX 
a - D à 


“4 


D CN CN B CAR 


“4 


ii LUI 


20 C0 Dr CN CA PJ 


Î 


Lure 


S10 
+ ENTREZ 


REXAXAEUHX 
COULEURS: 
COULEURS : 
COULEURS: 
COULEURS: 
COULEURS: 
COULEURS : 
COULEURS : 
COULEURS: 
COULEURS : 1 
VOTRE CHOI 


M" pravoque la negation du pod sis 
ernier caractere 


K De 


* du 


22 COMRINAISONS * 


247 
ii ÜZ4 
ns 117 FE 
7774 
16807 
42768 
290149 
ü [RTRTN TE] 
sa 


COMBINAISONS * 
COMRINAISONS 
COMRINAISONS * 
COMRINAISONS * 
COMBINAISONS ” 
COMEINAISONS * 
COMRINAISONS * 


COMBINAISONS * 


+ Adresse dans 2 table PTS ecran_pour affichage du texte. 
DTEXTE DATA 13,553,953,16% ka AO, ARS 
DATA S6E DAS, 723, b6z. d2 9. SFFFF 
* Valeurs des registres video en made texte. 
RVDET DATA 0000, *O1RO, 50200, *Q30E 
DATA 0401, #07FC, 3FFFF 
* Valeurs des registres video en mode Hit-Map. 
RVDFEM DATA 000%, FO1AÏ, +0206, 03 FF 


DATA >G403, 0826, 0607, 20777, *FFFF 
* 


RVDPIT 
RVDFIE 


DATA 
DATA 


*# Valeurs 
ZERO à 


R 
QUATRE 
R 


#01FG 
#01E1 


700 #00 « 


* KRegistre VUF 1 mode 
* Registre VDF 1 mode 


our definitians chiffres Men toutes 
>00, 


de EUR 
+08, 
MES 
# ei à #47, © 
G3 >00! > 
#00, 
HOUR 


500, 

“10, É 
#40, 
Le à 
42, : 


00, n 
20, 
40, 


1° 


texte 
bit-map 
. O0 

F4, 





lettres". 


BYTE 
EYTE 


F7E 
10, 
F8, 


#3C4 42, 
70. SL 
>F8, >84, 


42, 42, 
Fi, 10, 
584; ;64; 


342, 347, 475 
10,510, 10 
:90, :88, :84 


CINQ 


“FC, : 
“O0, 
>3C, : 
rive 
>84, 
ri 

500 


>80, 

00, 
542, 

3 tu } 


C4, rA4, +94, 


>84, 
+00, 


#80, FO, 
#00, OC ja 
#40, 40, 
#10, >10, 


584, :84, 
#00, 500, 


È #80, 
+00, 


54G: 
510, 


784, 
>00, 


* Adresses des blocs de’ valeur 
NOMBRE DATA ZERO,UNE, DEUX, TROIS : QUATRE, CINQ 


* Valeurs 


NES 1 
NESZ 
NESS 
NES4 
NESS 
NESé 
NES7 
NESR 
NES 


E 
RYTE 
RYTE 


NES1 


+80, 
O0, 
#40, 
»10, 
AC, 784, 


594, 


00, 


>804 
, 00, 
+42, 
510, : 
;24;: 
#83, 
#00, 


FC 


00 


+30 


#7C 


84 
574 
#00 


our definition chiffres 745 pour 


:00, 
#00, 
+00, 
*G0, 
#O0, 
#00: 
+00, 
#00, 
+00, 
O0, 
#00, 
O0, 


#00, 


Fe à 
+10, 

" 38, 
384 

:28, 
578: 
+38, 


= £ 
708, > 
Ve LA 
IQ se À 


»7C, > 


#38, 


1:04, 
144, 5 
44, 


18, 52 
Pat 


44, 44, 44, 44, : “ 


FO SL :10,710, 


44, à 

544, > 

#44, > 

544, 50 
#44, 


: “4 
0, +78 
, 44 
#20, >40, 
44, 544, 
*08, 


: +44, 44, 


44, 
544; 


: +44, +44, 
210! 230! 210: 
528, 44, 44, 


44 “ 
1544: 
1518; 

544, 


28, 48, 

>44, +44; 
704, 
#44, 
78, 44. 


1204, 
44, 


544, 
#10, 
»44, 
38, : 
+44, 
30; 
“10, 
44, : 


* Adresses des blacs de valeurs, 


NESSAI DATA NESI,NES2,NES3, NESA4,NESS 


ES 


Cd 4 


5 2084 > 


10, 
+44, 


04: > 
#44, 
ÿ 1Ls 


44, 


544, 
F2 


44, 


44, 
544, 
#04, 
#10, 
44, 


10 
44, | 
Fe 


:44, 
#44, 


pr 


+358 
5x8 
»7C 


: 38 
44,53 


FOR, 0 


»44, 


544, > 
»44 1 32 


+44, 


»44, >: 


#20, 
r, 44, È Eu 
# 44, +3 


544, 


508, >3C 
510, #3 
544: 338 


DATA NESS,NES7,NES8, NES9,NESI 0 
our définitions’ des chiffres 8k6 


* Valeurs 
Et 


* Adresses, 
“és DATA 


SH 


re, 

val, 
CS: 
04, 
FE 


PEss ra 


E > 30 : 


"+ 
ge 


SC, 


Ci,6S, 


cols 


ZE, 08, 


Fe 
0) 1 : u & 


21 à 
#20 4 
21, 
:08, 
>10, 
94, 
>BC. 


#00, 
?Û D: 


> ul 8 Ed :2R 4 
#42, 202, >044 
+47 < *02, F ‘4 
20, #14, FE4 y 
#40, 40, 77C, 
45, #40, 
TE 1Fca 5 34 , 
547 FA a 
, 42, 42 


Las 4 
549, 49, »49, 


#0 TES F F ar 
20 


21, >? 
S21; 321; 
#20 % 
“oi, 
508, 


sé2ls 
221: 
s 20 


121, 


520, 
il, 
508; 
#10, 
284; : 
>C4, > 
53 , 5 
#01, 
RUE 
rie EC 

21: 2 


#10, : 


: 7 


70 > 
08, > 


PE Le Æ 


2 SE, 


+08, 0 
>08, ? 
+073 à 


?1Es 


>02, 
44, 


#02, 


104 


+47 


< 
#2 


42, > 
#20, 20 
5, 42. 
+02, 5 
02, 
C3,C4,C5,Cé,C7,C8,C9,C0 


>OF, > 


. 08, 
10, 


>02, ? 


42,5 


>21, > 
>20, > 


521, >2 
708, 
>10, > à 


+94, 


MA: > 
OF, >C 
tre 


Fée 
>10, 
EE 
+84, 


F1G: 
>78, 


+08, É 
>10, % 
+10 : 


578: : 


QUE 


00! 
#Û 10, 
#0 00, 


00, >C 
»78, : 
FE ME 


L 57 
4 


F08, »SE 
abs o7E 
42, SC 
04, >04 
EL 
: F0 
15éc 
3 r AC 
2, »3C 


»7F FE 
1220, 71E 
17213 221 
+20, 320 


15217521 
: +08, 


+08 


510, #10 


84, 84 
: >94, BC 


+03 5 +01 
>1E 
51, #1E 


1720, >3F 


EcrE 


*1E 


; +08, 708 


#10, 


1 4; 584; 27E 
84 84 


| AS 


40, 


, 748, 


*7C 


7€ 
+44 


D, +48, 44 
»40, 37C 


An 38 


D, 48, >44 
oc «00, +00 

, 224, 78 
530! #40, 570 


nombre d'essais. 


3 3€ 6 3e 6 JE JE JE 3€ 


de Je 26 36 € 26 2€ 36 € 
MS DCmMmIxM 


sue 


NT ET 


[an -Le 


JS © On 


: Di 


mn. 
mr 


Dre D: 


20 00 Cr CN Be LA Ro 


affichage 
"SOLUTION" 
partie 
superieure 


HA case 
"SOLUTION" 
partie 

inferieure 





ELSE en TI BASIC 


Nous nous sommes aperçus que la 

plupart des programmes écrits en TI 

Basic comportent un grand nombre 

de ELSE. Il faut donc signaler que 

cette instruction est rarement, sinon 

jamais, utile dans ce langage puisque 

le résultat d’un test ne peut être 

qu'un branchement. Pour exemple, 

nous rencontrons souvent ce type 

d'écriture : 

1000 IF X=5 THEN 1010 ELSE 
1500 

1010 A=A+1 

Ceci peut très bien, et doit, être rem- 

placé par : 

1000 IF X<>5 THEN 1500 

1010 A=A+1 


qui occupe moins de place en mé- 
moire et prend moins de temps à 
l'exécution (le TI Basic n’a vraiment 
pas besoin d’être ralenti!). Ces re- 
marques ne concernent pas, bien 
sûr, le Basic Etendu. 


240, +40, 40, à 
570; »44, >44, > 
for 40, 55 

?38, > ; ; 
38, * 

or 

#70, +40 


578, > 
D, »7C, #40 
»78, à 
0, 244, 5 
S7C: > 
»78, > 


«2704 40 
. +38, Fe Ê F* x a" 4 - 
s DS 44, > +238, 04, 
ê 758, + "44, 570144, 5 
. +38, v TO, + #10, > 
+00, 500, >30, >30, 00, 730, >3C 
Definition des flèches. 
FLECHE EYTE 10, 230,571,2FF, FF, 271, #30, 
BYTE :08, 00, SE, >FF, 2 FF 4 BE, >0C, > 
* Definition du cadre {curseur ) : 
CADRE BYTE FE, >82, 702, 302, :62, :82, : 
* Couleurs pour tableau” aide memoire. 


COULR BYTE >04, 00, 706, OR, POD, OF, POE, 703, 709, 301 


* 
COULSH EYTE 06,06, 708, 708, 207 #07 : +ÛR, 0 * 
COULSE EYTE OA, F0, : OZ, 503, 502, 502, : 0€, +0 * 
* Signal sonore pour erreur ce e logique 
SONERR BYTE :05,:9F,%EF, 
RYTE 509, ?8E, 01: A4: She! LES: 301, +90, Ré, 
EYTE 503, 591, > , ‘D4, 
RYTE 502, VAE *D5,4 
RYTE 05, Ë M: 393 s 250» 
RYTE 303, à k : D7, 
EYTE GO, > 23 ?DB: 
596, >R3, “DO, 6 
>D1, 


MD IGUM ZIMAZIME MED GOT 


Es 
Ï 


"SOLUTION" 
"SOLUTION" 


Couleurs haut 
Couleurs bas 


5D3, 4 


Dé, 3 DATA :0 #0101,:0101, 


FFF EF 
PEFFF à 


0101 


RYTE 300, : 
BYTE 203, : à 
POS, à 5DZ, 
705, +85, 03, 300, 
503, 3 *, *D4, 
50%, V2? : D : 
505, : +02, 795, *RO, *D6,6 
#03, 574, 561, 507,5 : DÉRÉR 
205, 395, H2, *D8, 3FFFF, > 
05, FCS, à 0081, > 
03, >S 2FFFF 4 27 
50%, > JFFFF 3 > 
BYTE 305, : ü,0, 0,0 
KAXKNEEKHANX Ü: 0, #0001, *0101 
X MASTER TX ETF 2FFÉE , 2FFFE , à 
LETETELTT TE: FFE: FFEF , à SFEFF, 
* Valeurs pour definition du titre COCO, *EO0EQ, *E0FO, 


Ré, DE, 5 


CSN 


SDF; (a) 


+7F7F 
#FOFOQ 


*x "MASTER MIND" 
TITRI DATA 2FFFF, FFF, SFFFF, 3FFFF 
DATA :>FCFC, SFCFE, à *FEFE, FFFF 
A 0,0,0,0 
AFS: >2E 76, >7F7E, >FFFF 
FFFF, 2FFFF, 2FFFF, FFFF 
0,0,0,0,0,0,0,0 
OFF, SLFÎF, >SFSE, >SF7F 
SFEFF , >FFFF: FFF FFFF 
9 0, >60 180, >B0CO 
0,0,0,0 
0, >0103, >070F, ?OF1F 
D LF7E , FFE s FFE: FFFE 
FFF: FFF ; FFF; >FF07 
>00C0, >FOFC, DFEFF s ?FEFC 
Q (a) 0: “io; 

FFÉE , >FFFF, >FFFF, 2FFFE 
FFE: SFFFF, 2FFFF, >FFFF 
SFFFF ; >FFFF, >FEFF, 2 FFF 
2FEFE; >FEFE ; >FEFE, >FEFE 


O 10% o, 


0, c, ü, Ü 

“iFIF, *1FI1F, SLPIESz 
:F6F8, :FCFE, :FFFF, 
5100, 0, >COFÉ, >FFFÉ 
:FOCO, Ü 1 CFO 
O Us 4, Ô, Ü: 10 Q 50 
SRFÈF : SF s PSFSF, PAF 
:F8F8, :F6F8, :FOFR, >FOFE 
, Q, 0,0 
5101, #101,%101,%101 
FFE, FFE, SFÊFF, >FFFE 
:C0C0, COCO, *COCO, 2FFFF 
>FCFC 


PSFSF, >3F3F, >3F3F 
ÉBFE? >F8F8, FF, :FBFE 
+703 5101, >101 »307 
SFFFÉ , >FFÉE : CÉÊFF ; 2FFEF 
+80 180, 8080, Sec 180; 8080 


>1FOF 
SFFFF 





52 


TITRE 


DATA à ss s FFFE.e 
DATA © 7F7F, 7FSF, SPF, à 
DATA %E7E7, SEP FPSs 
DATA : PAC Sa TO Sy 2 
DATA 5 D A ni D 
DATA Q,0, or, [a] 

DATA FAOS, 2407, : +707, :FOF 
DATA :FEFC, SECÉC, :FÈFA, 
DATA ©7F2F, SF, 1FIF, 
DATA FBFE, : FOFC, : FCFC, > 
DATA 0, GE Qs [a] 

DATA 507, 3301, 1, (e 
DATA SPFFÉ. sFFÉE , HEFSF. 
DATA :FFFF,@FFFF, FFFE, 
DATA :F8FC: >FEFF >FFFF, 
DATA O4 oo, 80, 58080 
DATA o, we o, o 

DATA Fa : PSESP 
C'ATA “Fere’ 2FBFE :F8FB, 
DATA Oo, 0,0,0 

DATA 5101, “101, 5101,:101 
DATA “PÉÉÉ : SFFÉF SFFFF, 
DATA ©FFFF,2FFFF.2FFFF, 
DATA :FCFC, :FCFC, :FCFC, © 
DATA où, Gen Q 

DATA PAPF , 3 SP roro 
DATA ©FFFF, : | SEFEF: 
DATA SEFFE, ? .©FFFF, 
DATA FFF, >F CL *F8FO, 


FFFF 


1PLE 


FFFE 


EYE 
FFFF 


F8FF 


#1FFE 
FEFE 


+700 
>FF7F 
#FFFF 


#3F3F 
+FRFE 


#FFFF 
COCO 


S3F IF 
*FFFE 


#FFFF 
*COE 0 


3FFFF, à 


#FFFF, à 
3FFFF, à 

:COC0, : 
SPF, 53 
:F8F8, à 


1FOF, 


2FEFF , > 


€ du RQ, 
101,5 
>FFFF, 
>FBFS, | 
0,0, 0% 
»7F7F 
>FEFE, : 
»101, 


:F07, 
FFFÉ, 


*FFO0,0 


, FFOQ, © 

, >FFO00, Q 

, CO000, 0 
FF, :3FO00, 0 
, >F800, 0 
#700,0 


3FFO0O, la] 


28000, 0 
101,>101,»101 


2FFFF, 


2FFFE, >FFFF 


*FBFC, >FCFC, :FEFE 


101 


>7FFF , 
:FEFE, > 


>FFEF, >FFFF 
FEFE, :FEFE 


“101, 101,101 


SFFFÉ, : SFFÉE, >FÊFE, 2FFFE 
Re #COCQ 
5 FSF , °XF2F 
SFEFE; SFFFF 


SU CO, Ÿ: 
SSP, ? 


>E0 nes 


:FO0F8, >F 
D'À s Or 7HÛ 


RFF , 


COËD, 


3F,>3FSF, >SFSF 
CO, COCO, >CC 
1 2IFIF, à: 


ù, Ô 10 re] 
+101, ‘101, 101 


5101, 


FFF ; 
FFFE 1 


FFF, 
>FOËB, >FCÊC 


DATA G,0,0,0 


DATA FFF 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA : 
DATA — 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Fr s FFFF,SFFFF 
#1FOF, :FOF, 707, +703 
dFFFE, : FFF. FFF. 2FFFF 
PESLSs PUS C3, 26: E83, 58307 
DFFFFe 2FFFP FFFF, :FFFF 
0,0, î, o 
SÉIE, 9 AFIF,SSFSF, #37 7F 
2FFFF « ÉPÉÉ, 3FFFF , #FFCO 
3FFFF, >FFFF, FFFF, >FFO3 
SFEFF « 2FFFF, 2FFFF,OFFFF 
0, ù, 080, :80C0 
Q, “QROF ÂF7F XAFIF 
80, 'COÉO, :FOËC, 2FFFF 
s101, 330F, »FFFF 
SFFÉF, dFÊFF, : *FEFE 
-8080, 78080, o, où, o, Q,0 
33FT F,?3F2F %F* EF, SE 
:FE8F8, :F8F8, SPFE, SFr O 
Q, Qo,0, oO 
#101, #101,%101, 101 
3FFFÉ , FFFF, PTE ess 
:COCû, ?COCO, >COFF . >FFFF 
ÿ, à, SF, 
JG, 0 >C0, 
>SESE, SAS F, SES 
5F9F8, :FRFE, 
>FFFF 3 FE 7E s > 
E0FO, :FOF8, > 
O, 0:0, O j 
SÉFÉF, :FFFF, :FFO0, © 
303, Lot. 100, [a 
FFFÉ >FEFE, >FÉO0, Q 
PR +307, 100, © 
SFEFÉ, 2FEÉE, >FF00, 0 
o, 00, O 
SYF7F s 2FFFF , FF00, 0 
COCO, #R080, 8000, 0 
2305, :101,5100,0 
2FFFÉ » 2FFÉF s 2FF00, 0 
COCO, *E0EO, *E000, © 
:FO7, 300, las 0 
SPÉFÉ ; FFE, >1F00, © 
SFFFF, >FFFF, >FE0O, à 
2FCF8, FOCO, O0, 0 
0, [e) 0, 0, 0,0,0,0 
SÉFSE SF SF. SF 00.0 
>F8F8, :F8F8, :FB00, 0 
0, +) .0,0,>101,>101, 100,0 


SÉÉFÉ, PÉÉE,: SFÉFE, 2FFFF 
2FEFF ; FFFF ; à FFE 2FFFF 
5103, x3203, :B787, >87CF 
SFFFÉ SPÉFE >FFÉE , >FFFF 
*FEFE. >FEFE, : >PEFE, 2FEFE 
#101,2101,7101, 101 
2FFFÉ, 2EFÊF, FFE, 2FFEF 
?C0C0: »COC0, :COCO, COCO 
HIFXF, > 3FTF, SIFEF 
PES SRREF, SEP) :FFFF 
, *E0EO, FOFB, >F@FC 
é POST ESP SP POP 
COCO, COCO, COCO 
s SPIP, SPF, SF SF 
D, :FOFO, +FOFO, FOFOQ 
301, : 101, 5 101 
"FFE, FFÉF, 2FFFF 
«780, 58080 
101 tb 101, 3101 
FEFÉ: 3FEFE, x 
k 3FF j 


duos 
?FEFE , >FEFE 
F101. oi. 101,101 
SFFFÉ, >FEÊF FÊEE ; 2FFFF 
COCO, COCO, #COCO, COCO 
SF SF ; PSFSF , PSP UE ; PSFSE 
SDFDF : SCFC7, *C7C 
2SFFFF, ©FFFF, >FFFF 
2F >3FEFS >BFFFS FFFF 
D, >COCO, COCO! >COCO 
SIFSF, PAPA 4 PSFSF 
FC :FOFO, +FOFO, :FOFO 
»101,? 101, 5101, 101 
SFFFÉ , >FFÉE , PEER s 2FFFE 
8080, :80 0, A0 180, *80R0 
101,101, 5101, »101 
SFEFÉ, *FEFE, >FÈFE, 5FEFE 
SSF1F, 1F1F, >FOF, >FO7 
SFFEF ; FFF, 2FFFÉ, 2FFFE 
»C787, >8787, »707, 5707 
*FÉFES °FEFE, >FEFÉ, >FEFE 
5101, 5101, 5101, >101 
3FFFÉ, SÉFÉE, >FÊFE , FFFF 
COCO, COCO: COCO, +CQCû 
DIF 4 PSP SF à PSP SF s PSE SF 
C1C1, COCO, :COCO, >COCO 
SFFFF ; >FF7F 3 >7F8F 3 1FIF 





");) MAGAZINE n°3 


Er . A A 70, #4040, ; 7840, 4070 
COCO, D, *COCQ DATA 70, 50408, 1020, :407C 
HIFI, 2 3FE TITRIS 538, :4440, 53804, 4436 
; :FOFO, SFOFF: PE DATA 44, :4444, 4444, 4438 
5101, 207, LFFE à > TA 78, 4444, 7850, 4844 
io? SFFÉE, à FEËC, : *FCFR DATF o, 0,0, 0 po 
o, 0,0, Oo jé # # , “244C, 4044 
TITRICG :101,5101, 3100, 0 AT #R10,0,Û 
:FEFÉ, >FEFE, *FÉOO, Q A 538, :1010,5:1010, 71038 
»° STE 300, (e TA 344, 6054, *5444, :4444 
Me CÉC, *FCOO, (a 2 +78, 5 7040, 4040 
5707, 5700, Q TA 2>7C, > 1 4444, 4470 
LT *FÈFE, : FÉOG, 0 >78, » . 7850, :4844 
#101,5101, 5100, ‘4 TA 370, #1010,%1010, 1010 
F ÉFÉE , : FF OO, © ATA :7C, 4040, ;7840, :407C 
», >C0CO, #CO00, Q à 050€ 
a F3F, 53700, 0 DATA 38, 4444, 4454, 4074 
SÉOCO! C0! COQ, ATA 44, 4, 4444, :4458 
2FO07, 5707, ‘100, © #7Cu + 240, :7940, ;407C 
SPFÉ Re FPÈRS :FÉOO, (a) AIR ; 2 #40 or et ere 
“COCO. COCC F “CO0O 9, 4040, 4040, x40 G 
Ex DSFAP, 2 F00! 0 TA 270; »4040! >7B40; »407C 
CCE Co Ce Échon nm JATÉ ù Us Ô, e) 
SFOEOS :CO00,0,0 Le 7É: 4441; 34448; >AA7C 
0,0, 030 on se A A ee 
TITRII :78, >4444, ;7E40, 4040 Rs pps iiere 
D »7C, *4444; 4444; :447C PAS AMAR, SIC AAA 
. 4444: 4444; *443R +70, 4040, 57840, 34070 
79° 4444" 7050. :4@44 1 Adresses des blocs pour titre. 
RE 7 ATTITA Ets JE TITRE, TITRE, TITR4 
> 9440 4040. 5AAT ) 
D DATA TITRE TITR7, TITRE, TITR9 
,LCSA4 5444 4444 DATA TITR10, TITRI, TITÉ 12 
"LACS A4. 5444 ï Adresses dans table i mage ecran. 
k 4040. 7840, % ei x AMTITR DATA 210, +31 (a z 410 2 Fed 0 
, 6464, 5440; »4C4 DATA >610, ?BI8, ?C2 
8, 4440, 4040, 54473 DATA D38, ESS, 
, 4040, 57840, *407C DATA 17168 
78, 4444, > 7060, >45 * Nombre d'octets par blocs. 
78, 1020 NCOICTTI DATA re 
0, Q, 0, Q DATA 152 
:4444, »7C44, * DATA M 52,152, 184,216,0 
>4444, 7840, 4040 * Couleurs pour titre iscroll). née 
«4444, % ANA COLTIT DATA 6080, RGO, 29090, :RORO 
> * 4444; » 4, :44ZE AS vd F0F0, 2020, #COC0 
LA Cannet ALCFET- 060, : 1 RORO 
DATA 44, 4428, 1010, 71010 DATA *AOAG! 54030, +207 6: COCA 
LELTETETE TL 
* MASTER E *% 
AO A HOMO KOACHOOEK 
EVEN 


R BYTE 00, >00, >00, ;Q0, ;00, ;00, 700, >0c Impression plus rapide 
BUIE 000! 378! 26 1544 578550 48 44 XF des fichiers-source avec 
EYTE 00, >7C, #40, >40, 578, 40, »40, >7C l’Editeur/Assembleur. 
st 00° 57C° 544: 544. 544; 544 44. »7C L'option PRINT de l'éditeur envoie 

Fe #00. 00. +00. 00, 700, *O0, 00 le texte vers l'imprimante en format 
fixe de 80 octets. Ceci provoque le 
déplacement systématique du chariot 
jusqu’à la 80ème colonne, même si 
la ligne ne contient qu’un caractère. 
L'option SAVE, utilisée normalement 
pour la sauvegarde sur disquette, 
permet la transmission des données 
en format variable. 


* . | À ; | Il est nécessaire de charger le fichier 
TEACF. “ source en mémoire pour utiliser l’op- 
TREDO * ï REDO tion SAVE, mais le temps gagné à 
À l'impression est considérable, surtout 
si l’on utilise une imprimante lente. A 
la question ‘FILE NAME ?”, il suffit 
de répondre ”’PIO.LF” (pour une im- 
primante parallèle) au lieu de 

"DSK1.nom de fichier”. 





EYTE 


EYTE :05 
RYTE 0 
RYTE 0 
EYTE #10 
RYTE 
EVEN 


RSS 
ESS 
RSS 
RSS 
RSS 
RSS 
ESS 
RSS 
RSS 
RSS 
RSS 
ESS 
RSS 
RSS 
RSS 
ESS 
RSS 
ESS 


DATA € 
DATA 
DATA € 
DATA & 
DATA € 
DATA € 
DATA 0158 
DATA O1A8 
DATA :0200 
DATA 10 


DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


* 

“nine +04, 05, 700, 30F, +00 * Table de description des lutins 
[1 CADR 
CADREY 
CADREX 
AJCADA 


HO 


Foasition cadre Y (Ligne) 
Position cadre X (Colonne) 

Valeur deplacement cadre 
Drapeau pour son 


* 
TASCIT 
NETENF 
NMIALF 
STES1 
STES? 
STESS 
STES4 
STESS 
STES6 
STES7 
STESE 
STES9 
STESIiQ 
STINT 
STINTS 
STSQOL 
FEGPF 
ss 


NEQUL 
BADRRET 
ORAPFFO 
DRAFT1 
DRAFER 
AECESR 
AECREF 
AECRMF 
ST ZC0 
CSCOUL 
HA 
HOOCT7 
HF 


* 
ASTES 


EE pour stockage definitions caracteres standards 
Nombre de couleurs bien placees 

Nombre de couleurs mal placee 

Stockage essai Î 


0 CO CF 0 ss CA 


10 
Stockage intermediaire 
Stockage intermediaire solution 
Stackage solution 
Memoire de travail du programme principal 
Memoire de travail sous programmes 


Stockage choix du nombre de couleurs 
Adresse de retour GFL 
Drapeau pour test 5 positions occupees 
Drapeau pour test si premiere touche pressee 
Drapeau pour erreur de logique 
Adresse relative pour ecriture dans table couleurs 
Adresse ecriture resultat couleurs bien placees 

di e couleurs mal placees 
Constante pour deplacement dans memoire video 
Pour test si S couleurs trouvees 


4000 
0007 * 
#FROQ + pour tests 


STES 1, STESZ, STESX, STES4,STESS 
STES6, STES7, STESG, STES9, STES10 


32108, 2708, 2508, : 
*2R08, 2008, :2F0B, 52 


32190, +27%0 


#2E90, : 


#837C 
#0375 
*E3C0 
REGFF+10 
FEGFPF4+1 
REGFF+14 : 
REGR EQL REGPF+16 u 
REG9 EQU  REGFF+18 d 
* sauvegarde adresse retour 

* charge registre pointeur 

* memoire de travail 

* sauvegarde definition des 


Constantes 
divers 


Adresses des tampons de 
’ stockage des essais 
AECRES 


22708, *2908 


108, 53308 


#2790, 2990 
3190 


Adresses premieres 
: Fasitions couleurs 
AECRFL Adresses fleches dans 
tables couleurs 


d, 2590, : 
2D90, >2F90, > 


* Fegistre d'etat GFL 
* Adresse retour code 
* Nombre aleatoire 

* Le oi = du programme principal 


* 

ETAT 
RTCLAV 
NOMEBAL 
REGS 
REGé 
REG7 


ASCII (clavier) 


54 


*X caracteres dans ÉRRAG 
MASTER MOV  R11,24ADRRET 
LWPI REGFF 

* Version E/A ou minimem : 
* CORRATEr RO, 0400 par 
X RO, ), 

RO, 50400 

R1, TASCII 


Ÿ passage en mode Rit-Map 

* affichage du titre 

BACEZ MOVE 9RVDPEM+S,, 5 >Q3D4 
LE R1, RVDPEM 


Des minuscules avec 
C 


Les minuscules du TI-99 sont assez 
décevantes : leur air de famille avec 
leurs grandes soeurs est par trop fla- 
grant. Pour stocker du texte, on peut 
se ”fabriquer” son propre jeu de mi- 


_nuscules au moyen de l'instruction 


CALL CHAR. Sachant que la pres- 
sion de CTRL-A, par exemple, pro- 
voque l'affichage du caractère de 


code 129, CTRL-B celui du caractère 
130 et ainsi de suite... on peut affi- 
cher ces minuscules le plus simple- 
ment du monde. Pour obtenir un 
a” il suffira d'appuyer simultané- 
on sur CTRL et À, à condition évi- 
demment d’avoir préalablement dé- 
fini le caractère 129 avec l'instruction 
CALL CHAR. Remarque : lors d’une 


utilisation ultérieure, pour qu’un texte 


stocké sous cette forme soit lisible il 
faudra bien sûr redéfinir les caractè- 
res 129 à 154. 
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IREM? kF1+, RO 
INITLE 
 DUWTR 
J IREM? 
INITLZ RO, > 1EOO 
F1, >DG00 
* HVÉEU 
RO, 0711 
! SUUTR 


RE 
RO, 51800 
ii à Ki 


ITIEZ22 R1 
YVSEW 
Ki 


Fi 
KO 
KT: 3100 


RQ, 32000 
Fi 


RE, 51800 
DAPOV 
E RE 
DTITRE DAMTITRIRIS) , RO 
M DATTITR(RE, Fi 
DNOCTTI (RE), R2 
CEITTR 
* YJVMERU 


RE 
DTITFE 
CTITR RO, 33500 


L. PAPOV 
* affichage permis 
MOV 


E 2RVDF1IB+1,%%85D4 


MOV  3RVDFIR,RO 
ELWF 3VWTR 
* defilement des couleurs 
* teste clavier pour 
* controle touche pressee 
CTITR? SETO R3 
CTITRé INC F3 
LI R4, -2 
ELUWF 3ESCAN 
MOVE ETAT, RO 
CTITRS 
RO, 9700 
R1, TASCII 
KE? 477 


* DVMEW 
2HACE 
Ri,COLTIT 
AZ, R1 


R4 
DAMTITR(R4) , RO 
RO, >2000 


RO, RS 
A  DNOCTTI(R4),RS 
CTITRI DVMEW 
AI  RO,8 

RO,RS 

CTITRE 

CTITRI 
R1,COLTIT+S 


ss 


F4 
SAMTITR (R4) ,RO 
RO, >2000 
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MOV KG, 
ñ SNÜCTTI (R4), RS 
CYTITR4 ELUF 9VMEH 

AI RO, R 

[ES RO,RS 

JGT CTÎTRE 

IMF < 

SC 

UNE 

CI 

ÎNE 

INF 
À passage en nr texte 
* affichage choix niveau 
BACH MOVE GRVDPT+S, :83D4 

LI F1, RVDPT 
IRT MOV xR1+, RO 

JLT CHOIX 

BLWF' SVUTR 

JHF  IRT 


* 
CHOIX LI R1, *2000 
Le F2, 760 
KO 
vAFOV 
KI, DTEXTE 
L RS, TEXTE 
CHOQTXE Y  XRS+, RO 
JL: CHOIXKC 
CHOIXE XRZ+,R1 
J CHOIX 
* DVSEU 
RO 
CHOTXE 
* CCR permis 
CHOIXC MOVR 9RVOFIT+1,39:R3D4 
MOV  HARVDFIT,RO 
ELUWF GVUTE 
SETO KO 
DELAIX NOF 
DEC RG 
UNE  DELAIX 
scrutation du clavier 
pour determiner 
choix niveau de jeu 
si touche QUIT enfonce : 
retour a la mire 
CLAVI BLUWF %ESCAN 
CE DETCLAV, STQUTT 
UNE CLAVIA 
E DEXIT 
CLAVIA MOVE GRTCLAV, KO 
SRL  RO,8 
AI RO, —47 
CI RO, 
ÜLT CLAVI 
QT RO, 10 
JGT CLAVI 
MOV RO, 2NCOUL 
PPT DE PAPE PETER EE 
*X initialisation du jeu # 
AOKOK ACHOE A ORONOK OK ONORONOK AO OX 
* affichage annule 
REDO MOVE DPRVDPEM+S, GR ID4 
LT R1, RVDPEM 
* ÉLRPRAE en mode Bit-Map 
IREM MOV  XR1+,RO 
JLT  INITE 
ELWF dDUVUTR 
JMF IREM 
INITL LI RO, 50156 
MOV RO, DAECREP 
*X initialisations pour cadre 
*X table formes lutins: pie 
* table definitions lutins: 
LT RO, 33800 
LI R1, CADRE 
LI R?:6 





* AVMEW 
RO, +1R00 
RU DCADRE 


RZ 
DVMEU 
À nié ant ue table image ecran 
* adresse de base = 1800 
LI RO, 1800 
CLR KR? 
ITIEÏi CLR Ki 
ITIEZ SWPFE KI 
ELWF GVESEU 
SWPE Hi 
. Al 
FO 
Bi, 100 CARO 
ITIEZ 
RE 
RE, _ 
ITIEÏ 
* DLIGNE 
x adresse de base = 000 COC 2H0007,FR6 
CLR RO 2  CARIZ 
CLEA KI Ré: 7 
LI RE, 1800 ë, F8 
EL »AFOY #  CAKII 
* table des couleurs = traneparent CAR12 Rés 7 
adresse de hace = 300 Fé,Re 
LE RO, 2000 : RO 
R1 =  CARII 
F2, -1800 À OO KO RRE 
3AFOY * MASTER C # 
* formation des "cases" destinees ERREEKAEINRX 
Ÿ à recevoir les couleurs * Trace les Riopes 
LT #1 000 LI 


B 
Rô, Fe 
R7 


R9, 188 
* LIGNE 


Ré 
F8 

* LIGNE 
Fé,83 


A1 

&I . é 

TIME CARS 

COC  2H0007,R7 RO 

INE CARS * SLIGNE 

AT 525 

MOY  R7,R9 ; Fée 

JM CAR FREE 

MOV R7:R9  R8 
Fo, * ALIGNE 
US 


ELUWF àLIGNE 
COC H0007,R7 
JNE CARS 
R7,9 
MOV K7,R9 
F' CARS 


RE, 34000 
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Ré, 
Ré, R7 
Fé, R9 
RB, 257 

* SLIGNE 
K7 


* pour és 7 de logique 


:10 
RO, +190 
Ri, FLECHE 

RS, 16 

D VMEW 


E. 
IFLECH 
=) FO 


+200 


R9 
û aLIGNE 
/ TFLECH 
X initialisation couleurs 
* du tableau aide memaire 
I RQ, :21E0 
9 ICREF MOVE 9COULR (RS) ,FR1 
* QLIGNE LI FK2,8 
Fô BL 2AFOV 
R7, 163 AI RO, 3200 
R7,.R9 INC KE 
(ae) cu RE, DNCQUL 
* DLIGNE JLT ICREF 
R7 * affichage des chiffres 
F9 * 8x6 du tableau 
* LIGNE * aide memoire 
CLR R4 


RS, 5000 | CLR KG 
F7,19 LI RO, #01FOû 
R7: F9 LI  KR?,8 
R6,218 + MOV QCHIFFR (RS), F1 
L RO, 9 el D YMEU 
LVERTE F 2LIGNE | RO, 200 
INC KR7 FNCT RI 
R9 INC F4 
‘ LIGNE C F4, äNCQOUL 
R7, 15 JLT IDREF 


MOV 
DEC 
ÎNE 


A7: R9 
RO 
LVERTE 


RS, 1G 


FO, 


#B1F0 


*X initialisation couleur 
%x "SOLUTION" 
* partie superieure 
RO, 3508 
* Ri, COULSH 
ICSH É DUMEU 
Â RO, 10 
ICSH 
X initialisation couleur 
x "SOLUTION" 
* partie inferieure 
A 5 
RO! 3608 
F1, COULGSE 
ICSE * DVMEW 
RO, 510 
RE 
ICSE 
X initialisation couleur 
* nombre bien placees 
bT 3,10 
LI RE 
LE 4000 
ICCBF LI 
BL 
AI RO, 3200 
DEC RE 
UNE  ICCEF 
X initialisation couleur 
* nombre mal placees 
Lil 3, 10 
Re 
:COo00 
ICCMF 


L 
IDCREF 
E 


JNE 


Ri, 1000 
FRE, 6 
nr 
FO, O0 
Re 
IDCREF 


initialisation affichage 
"ERREUR DE LOGIQUE" 


LI 
LI 
LI 


ELUWF 


il 
LI 


LI 
ELUWF 


RO, 1558 
Ri,ED 
R2, 72 
JVMEU 


RO, 1660 
Ri,L 
R2,56 
3 VMEU 


initialisation affichage 
Lo: à ESS, 


LI 
BLUWF 


RO, 1=RO 
Fi, D 
SUMEW 


RO, :16B0 
Ri,E 
R2, 48 


* YVMEU 


RO, 5 T84RO 
F1, 4000 
2, 48 
24r0ov 


RO, #36E0 
F1. a #DOGQ 
R2, 16 
24AFOV 


RL 
* Chargement table des 
* sons dans mem video 


LI 
LI 
LI 


RO, #2CO0 
R1, SONERR 
R2,118 





EBLUF VMEW 
* tirage aleatoire des 
* couleurs a decouvrir 
LI RO, STSOL 
CODE EL. 2SFALEA 
MOV PNOMBAL ; R1 


SARL Fi,17 
R1, SNCQUL 


C 
UHE CODE 
MOV HI, *xRO+ 
CI RO, STSOL+10 
JLT COBE 
* mise à zero des tampons 
* de nn ne des essais 


F2, 40 
ET li, NBIENF 
COLE RO 
MISEZ MOY Dr FAT 
MISEZ 
* initialisation 2 toi 
LT FA, 
# affichage permis 
MOVE GRVDFIR+1, 50304 
MOV SRVDFIE,Rü 
BLUF SVWTFR 
LAERAERAERE 
XMASTER D 4 
MEHR ER E 
: Initialisations pour 
* premier ou nouvel essai 
NOLIVES INC RS 
INCT F4 
CLF RS 
*16E0 


LI RO 
se SNESGAT (R4) , Ri 
ELUF à 
CLF 
CLA à : 
MOV GRECRES (RAI , F1 
MOV  GASTES(R4) ,R10 
HO  SDRAFER, DDRAFER 
si erreur de logique 
declenchement signal 
sonore, sinon aller vers 
scrutation du clavier 
JE CLAVE 
LI RO, 3558 
I Fi, 2000 
LI R2, 7 = 
RL SAFOV 
LT 
LE 
BL 
LT RO, 3C00 
HO RG, 938300 
SOCR PHÔ1, Ÿ = FD 
MOVE 9H01,%:A3CE 
: scrutation du Clavier pour 
saisie couleurs et 
deplacements cadre 
* les interruptions permettent 
le signsl sonore pendant la 
‘ boucle 
LAVE  LIMI 
LIMI © 
ELUWF 2ESCAN 
MOVE ETAT, RO 
JEQ CLAVA 
HO its DDFAFT 1 
JNE CLAV2A 
BL %EFFLE 
SETO 2DRAFTI 
si deplacement a gauche 
CE DRTCLAV, 3TEG 
UNE CLAV2R 


E 2GALICH 
À Test si deplacement a droite 
CLAVEE CE YRTELAV, àTD 
UNE  CLAVEH 
E DDROIT 
# test si effacement 
CLAVEH CE DRTCLAV,DTE 
UNE  CLAVRC 
E DEFFAC 
* test si <ENTER: 
CLAV2C CE DRTCLAV, àTENTER 
JNE CLAVED 
R VENTRE 
* test si abandon (AID) 
CLAVED CHR DRTCLAV, 5TAID 
UNE  CLAV2E 
CLR Kiss 
E TARBND 
* test si couleur = noir 
CLAVSE CR DRTCLAV, TO 
JNE CLAVEF 
LI K9,9 
JHF CLAV2G 
Ÿ tests si entree ur 
CLAVZF MOVE 2DRTCLAV,R9 
SRL R9, 
AI R9,-49 
ULT CLAVE 
* affiche la couleur et 
* deplace le cadre vers la 
* droite si nossible 
CLAVEG C 9, 2NCOUL 
CLAVE 
R9, *R10 
R12,R0 
ie sisi de 
FH? ve 
SAP 
RyL :8000 
: 7,0 
SOC K7,2DRAPFFO 
DDAOIT 
X test si les 5 positions 
* sont accupees 
ENTRE MOV  9DRAPFO,R7 
COC 2%HF800, R7 
JEQ ENTREA 
E DCLAV? 
? determine le nombre de 
* couleurs bien placees 
ENTREA MOV ET S(R4) ,R10 


C 
ENTREG XR10+, 2STINT (R7) 
M 


9STSOL (R7) , DSTINTS (R7) 


R7 
R7,10 
ENTREG 
R7 


ENTREC € DSTINTS(R7) ,2STINT (R7) 


ENTRER 
ANBIENF (R4) 
DHF800, 2STINTS (F7) 
S YSTINT(R7) 
ENTRER INCT K7 
ie R7, 10 
JLT ENTREC 
? determine le nombre de 
* couleurs mal placees 
CLR R7 


ENTREF CLR R8 


ENTREE C DSTINTS(RE) , @STINT (R7) 


JNE  ENTRED 

INCT %NMALF'(R4) 

MOV 2HF800, 9STINTS (KB) 

SETQ 2STINT(R7) 
ENTRED INCT F8 

CI R8,10 





JLT 
INCT 


CI 
JLT 


DUREE 


7, 10 
ENTREF 


*X affiche le nombre de couleurs 


*X bien et mal 
MOV 


lacees 
YNETENF (R4) ,R7 
NOMBRE (R7) ,R1 
DAECREF, RO 
R2,48 

D UMEU 
ANMALF (K4) ,R7 
INOMBRE (R7) ,R1 
DAECRMF, RO 


* 1VMEW 


SETOQ 
R 


ENTREH MOV 
Le 


couleurs trouvees 
ONBIENF (R4), 3CSCOUL 
ENTREH 

R15 

TABRAND 

F4 ,F4 

TESTEX 

DSORNE 


X routine pour determiner 
* si le joueur a fait une 


*X erreur de 
TESTEX Fe 


C 
TESTEA 
M 


C 
TESTER 
J 


S 
TESTEC 


TESTEF 
TESTEE 


5 
TESTEG 
J 


TESTEH 
C 


logique 

RÉ es 
-FGO0 

SDRAPER 

DASTES (R4) , RG 

K7 


R14 


R15 

DASTES (R7) ,R10 
DASTES (R4) ,R6 
R1S 

XR10+,2STINT (RIZ) 
pes SSTINTS (RIZ 1) 


AIS, 10 
TESTEA 


R& 
DSTINTS (RE), HSTINT (FR) 
TESTEC 

R14 

DHFRQQ, DSTINTS (R8) 
sl 


R8, 10 
TESTER 
R8 


R9 

DSTINTS(R9) ,2STINT (KB) 
TESTED 

R1S 

DHF800, 2STINTS (R9) 

DST INT (RE) 


R9, 10 
TESTEE 
RE 


RB, 10 
TESTEF 

R14. 2NBIENF (R7) 
TESTEGS 

DAECRFL (R7) , RO 
DABEV 

2DRAFER 

R1S. DNMALP (R7) 


TESTEH 
DAECRFL (R7) ,R 
RO,8 

R2:8 

24POV 

DDRAPER 

R7 

R7,R4 


À test 
SORNE 


mise 
SORNER 


vers 
SORNEE 


+ SORNE 
RO, 5200 
Tue TESTÉ 
si dernier essai 
CT R4,18 
UNE SORNEA 
E DARAND 


a jour adresses dans VDF 


ñ VAJZOO, DAECREF 
Â DAJ2G0, HAECRMF 
MOVE 3C1CADR, 2CADREX 
BE DAJCADR, 2CADREY 
ET RQ 52 EHO0 
LT R1,CADREY 
LT R2,2 
ELUF 3VMEUW 
a avant dernier essai 

SORNER 

4 1, + 35h 

58000 


nouvel essai 
E YNQUVES 


AOK IOM AO OO HRK 
* MASTER SP1 * 
ANA AACHEONON ORCH 
* Routine pour ecrire 
* plusieurs octets en 
* memoire vive video 


AFOV 


AFQV2 
AFOVI 


WF GVSEW 
JMP_ AFQVI 
MOVE Ale 2 :8C00 
DEC 
UNE AFav2 
RT 


t routine pour retour 


: : la 
Ex 


ares 


mire 
ramme moniteur) 
CLR RG 

MOVE Rü, DETAT 
MOV  DADRRET,RII 


RT 
AH A OKON AO OH CAC ONCE NOK 


*X sous 


D ul de *X 


*X trace de li * 
MEXKKEEXAKAKX PPPTE TT 


LIGNE 


DATA REGSF 

DATA $+2 

C DREGE, DREGS 
JNE LIGNEA 

MOV  3REG7,R10 


: MOV  RIG,Ri 


LIGNEA 
LIGNED 


LIGNER 


MOV. 2REG6,RO 
EL 2POINT 

C R10, 2REG9 
JEQ LIGNER 
INC 10 

UMF LIGNEC 
MOV  9REG6,RS 
MOV  R9,Rû 
MOV 

RL 

C 

JEU 

INC 

UMP 

RTWP 


f'sous programe À 


* sous 


programme 


pour afficher un k 
ï point sur l'ecran * 
ACK NOK HONOR NOK CHAUX 


POINT 


MOV R1,R4 
SLA R4,5 

SOC R1,R4 
ANDI R4,:FFO07 





60 


RO, R4 
RO, 7 

RO, R4 

RE, :ROGO 
FE, [a] 

R4, RO 

RO 
RO, 9 8002 
RO 


RO, 9>8C02 


2:8800,R1 

RE, F1 
Ro 

à RO, 2:8RC02 
RO 
2H40G0, RO 
RO, 9 8002 


R1, 2 :RCGû 

RO, 2000 

RO 

RO, 2:8C02 
2h RO 

RO, 9 *8C02 


DREGS, à #8CûG 


SOUS Dr ogr anne 
affic dc des "cases" 
ÉCAR R7,8 
CI x 
SCAR1 BLWP aLIG 
CI 
JE 
AI 
AI 
JMF \ 
CQC 2H 1007,FR& 
UNE ARE 
AI Ré, 9 
MOV à 
JMF 
AI 
MOV 
DEC 
INE 


FT 
HE NOKOMOKMOKC HA OO CRE ON RON 
* sous programme 
* pour generer un # 
* nombre aleatoire * 
AE HN EME NEA EE OX E 
SFALEA LI R4, 2864 
MFY _ 2NOMBAL, F4 
AI RS, 31417 
nr RE, 2NOMBRAL 


sous programme 
effacement des 
fleches pour erreur 
de lagi ue_ 
EFFLE RON es 
RD" 32190 


C F1 
EFFLEI R2,16 
ER 2AFOV 
RO, :200 
F7 
EFFLE 1 
RO, >3558 
R2, 72 
D. 
EN ve lue LU] 


SUR 


* deplacemen 
: cadre vers 
auche 


t du 
la 


it MOV  RS,RS 


GAUCHE 


GAUCHE E 
* deplacemen 
* cadre vers 
*% droite 
DROIT CI 


X effacement 


GAUCHE 
RS 

R10 
R12.-16 


DAJCADR, DCADRE X 


2CADREX, R1 


DCLAVE 


t du 
la 


SASEADR, SCADRE X 


GAUCH 
d’° une 


* couleur avec 


*X deplacemen 

*X la droite 

EFFAC CLR 
MO 


* affichage 
*% solution 
ABAND LI 
CLR 
ABANDI se 


t vers 


R?,8 
2AFOV 
RS, RO 
R7, 8000 
R7: Ô 
DDRAFPO 
DRÔLT 
de 1a 


RO, 2508 
RE 


DSTSOL (RE) ,R8 


DCOULR (RE) ; R1 
R2, 

vAFOV 

RO, 16 

RE 

RS, 10 

ABAND1 

a +7608 


SSTSOL (RS), F8 


QCOULR (R&) , R1 
FR2,8 
2APOV 
ee 146 


e 10 
ABÂND2 
RO, 1958 
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R2,64 


* DVMEW 


Ù I 
ELUWF 


RO, 5 S5ERC 
R1,:1000 

R2,56 

2AFOV 

RO, 36RO 

R3, 64 

%AFOV 

DC1CADF, 2DCADRE + 1 
DCICADR, 2CADREX 
RO, 040 TN] 

RO, HDCADRE 

RO, 2CADRE Y 
SDRAF ER 

RO, -O1A48 

RO, DAECRMF 

RO, 100 

R1 : DO000 

DVSEU 


* scrutation du clavier 


ABANDS LI 

AEANDS ELKF 
DEC 
JEQ 


MOVE 


JE 


si touche 
retour au 
CH 


INE 


* si touche 


RE OCFF 
JEÉCAN 

RS 

AEHANDA 
DETAT, RO 
AEANDE 

EACE pressee 
titre 
DRTCLAY, 2TBACE 
AEAND4 
DEACE 2 

REDQO pressee 


* nouvelle partie de 
* meme niveal 


ARAND4 CH 
ÜNE 
E 


DRTCLAV, 3TREDO 
ABAND: 
YREDO 


Y si la solution a ete 


* trouvée, les couleurs 


X lacees sur la is 
‘essai clignoten 
AEHANDA MOV 
ILT 


INF 
ARANDE 

[ Fôé,Ré 
ABANDC 
Fé 
R7 
ARANDD 0 dSTSOL(K7) 
R2,8 
dAFOV 
RO, 16 
R7 
R7410 
BEANDD 
DAECREF, RO 
sa 52000 

DOG 


ABANDC 
L. 


ABANDE 
ER 


ABANDE 
SAECREP, EG 
FO, S200Û 
Ri, 8000 
F2, 40 
vAFOV 


DAECRES (R4), 


de 


RQ 


.FE 
DCOULR (RE), Ri 


*X vers scrutation clavier 


JMP  ABANDS 


Les programmes sont maintenant en- 
registrés sur les deux faces de la cas- 
sette. Les commentaires parlés nous 
semblent, après six mois d’utilisation, 
d'un intérêt relatif. C’est pourquoi 
nous avons décidé de les supprimer 
et d'insérer un ’’catalogue” au début 
de chaque cassette. Il donne une ex- 


Du nouveau sur les cassettes 


plication sommaire des programmes 
ainsi que les langages utilisés. Nous 
avons prévu des emplacements pour 
ajouter les numéros de compteur du 
magnétophone. Puisque ces numéros 
varient dans des proportions impor- 
tantes d’un appareil à l’autre, nous 
les avons remplacés par ’XXX”, qu'il 


Gérard Michel 


vous appartiendra de modifier selon 
les indications fournies par le comp- 
teur de votre magnétophone. Nous 
espérons que ce nouveau système 
vous conviendra. Les catalogues sont 
écrits en Basic TI afin qu'ils soient 
utilisables par tous. 


Le magnétophone à cassettes 
Texas Instruments ”Program Recorder” 


Cet appareil de construction robuste 
peut certainement être placé entre 
des mains peu délicates et convient 
donc très bien à une utilisation fami- 
liale. Contrairement à ce que son 
nom semblerait vouloir indiquer, il 
est possible de l'utiliser comme un 
magnétophone classique puisque 
tous les réglages habituels sont pré- 
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sents. Les prises destinées à recevoir 
les trois fiches du câble de connexion 
sont de mêmes couleurs que celles- 
ci; ce n’est pas grand chose, mais 
cela facilite un peu la vie du pro- 
grammeur. Ce magnétophone peut 
recevoir trois types d'alimentation : 
quatre piles de 1,5 volts, secteur 
(220 V) ou transformateur 6 volts. 


Nous utilisons cet appareil de façon 
intensive depuis environ trois mois 
sans rencontrer le moindre problème, 
ce qui tendrait à prouver que la fiabi- 
lité est bonne (nous ne sommes pas 
toujours d’une douceur exemplaire 
avec le matériel !). 
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Bibliographie 


Gérard Santraille 


La conduite du TI-99, de Pierre 
Willard, aux Editions Evrolles - 192 
pages, 85 FF. 


C’est selon moi l’ouvrage français le 
plus complet sur le TI-99. A côté des 
classiques descriptions des comman- 
des et instructions du BASIC, on 
trouve dans ce livre de solides expli- 
cations sur le codage interne des va- 
riables et des chaînes de caractères, 
l'emploi des opérateurs logiques, 
l'optimisation des programmes, l’or- 
ganisation interne du TI-99 et sur de 
nombreux autres points. L'auteur fait 
un panorama complet des extensions 
du TI-99 et des différents fichiers uti- 
lisables (la majeure partie du chapitre 
correspondant est consacrée aux fi- 
chiers sur cassette). 


Pour agrémenter le tout, cet ouvrage 
se termine par un recueil d’annexes 
regroupant, souvent sous forme 
condensée (tableaux...), des informa- 
tions précieuses comme les instruc- 
tions du processeur ou les codes 
ASCII des caractères. 


Un livre à conseiller à tous ceux qui 
veulent en savoir un peu plus sur le 
fonctionnement du TI-99. 


Jeux et Programmes pour l’ordi- 
nateur familial de Texas Instru- 
ments, de Gerard Ceccaldi, aux Edi- 
tions Shift - 100 pages, 155 FF. 


C'est le premier tome d’une série de 
trois livres consacrés au TI-99. Il se 
présente comme un recueil de 50 
programmes, tous en TI Basic et de 
niveaux très inégaux. À côté de jeux 
désormais classiques comme les 
dames, biorythmes, pendu, tiercé, 
loto, etc... se trouvent quelques pro- 
grammes plus originaux que vous 
maîtriserez toutefois rapidement. Les 
listings publiés dans ce livre sont mal- 


heureusement dépourvus de com- 
mentaires. Du fait de la longueur de 
certains d’entre eux, une cassette 
d'accompagnement n'aurait pas été 
superflue. 


Exercices pour TI-99/4A, de Fré- 
déric Lewy, aux Editions du PSI - 
144 pages, 82 FF. 


Ce livre est la suite logique de ”’A la 
découverte du TI-99/4A”. 


Dans la première partie, l’auteur pro- 
pose un grand nombre d'exercices 
de difficulté croissante. Tous les pro- 
blèmes fréquemment rencontrés en 
programmation sont abordés: affi- 
chage, nombres aléatoires, tableaux, 
classements, tris, chaînes de caractè- 
res, graphismes, etc... Chaque exer- 
cice proposé est accompagné d’un 
organigramme qui facilite l'écriture 
du programme (les plus courageux 
pourrons ignorer cet organigramme 
et concevoir le leur). 


La deuxième partie de l'ouvrage 
donne une solution à chaque pro- 
blème posé. Le lecteur pourra 
comparer son programme avec celui 
de l’auteur. De nombreuses explica- 
tions sont données en regard des lis- 
tings. 


Je crois pouvoir affirmer que tous 
ceux qui auront lu ce livre (en faisant 
les exercices) seront capables de 
comprendre ou d'écrire n'importe 
quel programme en Basic TI. 


Mon TI-99/4A, de Xavier Cevrat et 
Claude Marty, au Editions Evrolles - 
144 pages, 75 FF. 


Tout d’abord, je dois dire que seul le 
désir de vous informer m'a permis 
d'achever la lecture de ce livre. 
J'avais en effet la curieuse impression 
de lire le manuel d’utilisation fourni 


À vous de programmer 


Dans le premier numéro de ‘99 Ma- 
gazine”, nous vous avions proposé 
d'écrire un programme sur le thème : 
la carte de France. Nous avons reçu 
plusieurs propositions et il fallait faire 
un choix. Celle de Laurent Desobelle 
a été selectionnée, et son auteur re- 
çoit un abonnement d’un an avec 
cassettes. Certains problèmes nous 
ont empêché de publier cette rubri- 
que dans le numéro 2 et nous nous 
en excusons. 


Cette fois, nous vous proposons 
d'écrire un programme capable de si- 
muler une horloge, une montre, un 
chronomètre, ou tout instrument 
ayant un rapport avec le temps. 


Tous les coups sont permis: affi- 
chage numérique, à aiguilles. Basic 
TI, Basic Etendu, Assembleur... 


Ce programme ne pourra pas être 
utilisé de façon pratique puisqu'il est 


par Texas Instruments. Il en va de 
même pour certains exemples de 
programmation. 


Signalons toutefois la présence de 
quelques petits programmes plus ori- 
ginaux (pas toujours très bien struc- 
turés). 


En conclusion, je ne pense pas que 
cet ouvrage puisse apporter grand 
chose à ses lecteurs. Par contre, si 
vous avez perdu le mode d'emploi 
de votre TI... 


Initiation au langage assembleur 
du Texas Instruments TI-99/4A, 
de Denise Amrouche et Roger Didi, 
aux Editions Shift - 214 pages, 195 
FF. 


Le volumineux classeur qui accom- 
pagne l'Editeur/Assembleur est très 
complet mais il a aussi deux gros dé- 
fauts : il est rédigé en anglais et 
s'adresse à des personnes connais- 
sant déjà un langage d’assemblage. 


Initiation au langage assembleur” 
permet un apprentissage progressif. 
Des exemples concrets, comme la si- 
mulation de DISPLAY AT, facilitent 
la compréhension des textes. Une 
large place est laissée à l’analyse de 
la mémoire vidéo en général, et au 
mode Bit-Map en particulier. Certai- 
nes routines auraient pu être écrites 
de façon plus concise, mais il est vrai 
qu'un programme optimisé” est 
souvent plus difficile à comprendre. 


Vous trouverez aussi dans ce livre le 
programme ”LINES” (cassette de la 
mini-mémoire) désassemblé. 


L'ouvrage de Denise Amrouche et 
Roger Didi est le complément indis- 
pensable du Manuel de Texas Instru- 
ments pour tous ceux qui désirent 
s'initier aux joies de l’assembleur. 


impensable de devoir laisser le TI 
sous tension uniquement pour avoir 
l'heure, mais il peut constituer un ex- 
cellent exercice de programmation. 
Le facteur temps entrant en ligne de 
compte, une optimisation sera néces- 
saire. 


Les lecteurs intéressés par ce petit 
jeu devront nous envoyer leurs réali- 
sations avant le 31 janvier. Le meil- 
leur logiciel sera publié dans le pro- 
chain numéro et son auteur recevra 
un abonnement d’un an avec les 
cassettes d'accompagnement. Bon 
courage. 
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1 - Etant possesseur d’un TI-99/4A, 
je désirerais savoir si l’utilisation de 
celui-ci via la prise péritel ou UHF 
n'abîmera pas mon téléviseur 
SECAM couleur ou tout autre télévi- 
seur à court ou long terme. 


2 - D'autre part, je voudrais vous fé- 
liciter pour les jeux que vous avez 
publiés et vous encourager à donner 
plus souvent la ‘traduction ” en Basic 
TI pour les programmes en Basic 
Etendu lorsque vous en avez la pos- 
sibilité. 

Laurent Delaveau - 23 rue Paul La- 
fargue - 91550 Paray-Vieille Poste 


1 - Les images générées par le TI- 
99/4A, ou par tout autre ordinateur, 
sont sensiblement différentes des 
images télévisées : le caractère matri- 
ciel de l'affichage d’un ordinateur fait 
que certains points de l’écran sont 
très souvent sollicités alors que d’au- 
tres le sont très peu. De plus, les 
images issues d’un ordinateur sont 
généralement plus contrastées que 
les images classiques. Tout ceci fait 
que, seulement à très long terme, la 
couche de phosphore du tube catho- 
dique peut garder la trace de la ma- 
trice d'affichage. Je ne pense pas 
que cela soit de nature à nous faire 
délaisser nos TI. 


Courrier des lecteurs 
Alexandre Duback 


2 - Il n’est pas toujours possible de 
traduire” les programmes écrits en 
Basic Etendu puisque le Basic TI ne 
comporte pas d'instructions propres à 
générer des lutins. Par contre, il est 
vrai que certains programmes en 
Basic Etendu ne le sont que parce 
que l’auteur du programme possède 
ce module, et l'utilise systématique- 
ment. 


1 - Comme vous l'avez souligné 
dans l’un de vos articles, les exten- 
sions en pépiphériques du TI-99 sont 
assez onéreuses. Je voudrais savoir si 
l'on peut s'attendre à une baisse de 
prix de ce matériel et tout d’abord 
du boîtier d'extension. J'ai lu qu’une 
baisse très importante du T1-99 aurait 
lieu très prochainement (il serait 
vendu aux alentours de 750 francs), 
le prix des périphériques va t'il sui- 
vre ? 


2 - D'autre part, à la suite de l’article 
fabriquez vous-même vos joysticks” 
et pour en revenir au boîtier d’exten- 


sion, est-il possible d'en bricoler un 
soi-même ? Pourriez-vous nous dire 
comment car, en fait, ce fameux boî- 
tier d'extension indispensable et si 
cher ne me paraît être qu'une ’vul- 
gaire boîte à prises” 


Patrick Wairy - 4 rue Léon Blum - 
02500 Hirson 


1 - Au sujet des prix, vous avez pu 
constater que, si le TI-99 n’est pas 
encore vendu 750 FF, la console et 
les extensions bénéficient depuis peu 
de baisses importantes. 


2 - Le boîtier d'extension n’est pas 
seulement une ‘boîte à prises”. Il 
contient l’alimentation des cartes pé- 
riphériques (cette alimentation doit 
être parfaitement stable), une carte 
d'extension qui permet de faire la 
liaison entre la console et les péri- 
phériques, et une ventilation indis- 
pensable au bon fonctionnement du 
système. Tout ceci est difficilement 
réalisable par un amateur et revien- 


LOGICIELS DE JEUX 
CARTOUCHES 


Jeux vidéo 1 : 3 jeux 
d'adresse (safari, Bing-ball, duel) 


Vous avez choisi 


Tous les logiciels 


sont disponibles chez GOLDY 


ALPINER : utilisation 
possible du PHP 1500 





MUNCHMAN : jeu du glouton 





OTHELLO 





Chasse au Wumpus 





Football 





Jeux Vidéo Il : 2 Jeux de 
réflexion et de mémoire 





A-MAZE:ING : le chat et la souris 





ATTACK 





BLASTO : combat de chars 





BLACK-JACK : pocker* 





HUSTLE : jeu de poursuite 





ZERO-ZAPP : Texas:flipper 
HANGMANN : jeu du pendu 


CHISHOLM TRAIL 





PARSEC : utilisation 
possible du PHP 1500 





LOGICIELS DE JEUX 
CASSETTES 


Jeux Rétro | : 4 jeux, Biorythme, 


reconstitution de mots 


LOGICIELS ÉDUCATIFS 
CARTOUCHES 


PRESCHOOL, early learning fun* 





BEGINNING GRAMMAR* 





MAGIE DES NOMBRES 





ECHECS : apprentissage et jeux 





EARLY READING* (1) 


MUSIC MAKER (Initiation et 
perfectionnement au solfège) 


ADDITION- SUBSTRACTION |* 


GESTION PRIVÉE (L'expansion) 375F 
TICALC 375F 
CASSETTE Conseil financier 75F 








AUTRES LOGICIELS 
CARTOUCHES 


GYMNASTIQUE * 149 F 


_099/4A 
BON DE COMMANDE | 
| DOCUMENTATION | 


à renvoyer à GOLDY 
BP274- 27002 ÉVREUX Cédex I 


D Envoyez-moi les logiciels 





SPEECH EDITOR" (1) 199F 





STATISTICS* 250F 





EXTENDED-BASIC 599 F 





ADDITION- SUBSTRACTION I1* 
MULTIPLICATION |* 








DIVISION * 





CROCODILE SAVANT 





ADDITION CANON 





DIVISION DEMOLITION 





DRAGON SAVANT 





MISSION MOINS 





Jeux Rétro Il : 4 jeux 





PIRATE Adventure + 
module 3041 T/US 





ADVENTURELAND (3) 





MISSION IMPOSSIBLE (3) 





CONNECT-4 : jeux du morpion 





YAHTZEE : jeux de Yam 





TUNNELS OF DOOMS : jeux 


de type Adventure avec graphique * 


VOODOO CASTLE (3) 





THE COUNT (3) 





STRANGE ODYSSEY (3) 








TOMBSTONE CITY : 
far-west du XXI siècle 


TI-NVADERS : 
envahisseurs de l'espace 


MYSTERY FUN HOUSE (3) 





PYRAMID OF DOOM (3) 
GHOST TOWN (3) 
SAVAGE ISLAND | & 11(3) 


MÉTÉOR MULTIPLICATION 


CASSETTES 
LE BASIC étendu par soi-même (2) 





LE BASIC par soi-même 





PONCTUATION 





NE CONFONDEZ PAS 





DIVISEURS PGCD, PPCM 





LOGICIELS GESTION 
PERSONNELLE 
CARTOUCHES 


GESTION DE FICHIERS 





GESTION DE RAPPORTS 








CAR WARS : course de voitures 


GOLDEN VOYAGE (3) 


FICHIER D'ADRESSES 
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TERMINAL EMULATOR II : 665 F 
permet de communiquer par téléphone si 
utilisé avec un modem et une carte RS 232 
(PHP 120). 

Avec le PHP 1500 permet de prononcer en 
anglais des phrases composées sur l'écran 
ÉDITOR-ASSEMBLER 599 F 
MINI-MÉMOIRE : permet de stocker 

5 Koctets et donne un accès simplifié au 
langage Assembleur par l'intermédiaire 
d'une cassette 599 F 











Tous ces logiciels sont livrés en français, 
sauf ceux marqués* 


1) nécessite le PHP 1500 
2) nécessite le module PHM 3026 
3) nécessite le module 3041 T/US 


” 


H GARANTIE GOLDY * 
Tous ces logiciels sont  %# 
garantis 1 an pièces et main- 
d'œuvre. Si par extraordi- 
naire, ils présentaient un 


défaut quelconque ils sont 
immédiatement échangés. 


ENVOI EN RECOM DÉ 





I indiqués ci-dessous : 
Prix 


Participation aux frais d'envoi : 
EN RECOMMANDE 19,00 F I 
"I 


i TOTAL : 
O Je vous règle par chèque 
bancaire, CCP 3 volets ou mandat- I 
lettre à l'ordre de GOLDY. 

I D Je désire recevoir une docu- I 
mentation en couleurs sur le 

D TEXAS 0094A, ses logiciels et À 

i ses accessoires. 194T1/108 i 

I NOM I 
PO 

N° Rue ___] 

I Code postal I 

UE nr 


= 
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drait, construit à une seule unité, à 
plus de 4000 FF (le boîtier est ac- 
tuellement vendu moins de 1000 
FF). 


1 - Peut-on déplacer le curseur de 
droite à gauche (je souhaite réaliser 
pour ma classe un programme 
d'opérations en colonnes à plus d’un 
chiffre) ? 


2 - Quelles sont ces minuscules dont 
vous parlez page 8 du N° 1 dans l’ar- 
ticle sur ‘les points forts du TI-99”. 
Des minuscules me rendraient bien 
service pour l'apprentissage de la lec- 
ture. 


3 - Afin d'utiliser ma console à moin- 
dre frais avec mes élèves, je vais me 
résoudre à acheter un poste TV noir 
et blanc ainsi que l'interface qui doit 
pallier l'absence de prise Péritel. Est- 
ce que cela vous paraît raisonnable ? 


4 - Enfin, je voudrais savoir si les lo- 
giciels existants ainsi que les périphé- 
riques du TI-99/4A seront compati- 
bles avec le nouvel ordinateur Texas 
Instruments. 


Claude Ruetsch - 14 Avenue des Oi- 
seaux de mer - 17140 Lagord 


1 - Il est toujours possible de dépla- 
cer un curseur de droite à gauche : 
avec la ”flèche à gauche” du clavier 
(FCTN-S) en mode commande, ou 
par programme, où tout est possible. 
L'article de Roger Didi ’’Apprendre 
en programmant” vous donne des 
indications à ce sujet. 


2 - Le TI-99/4A ne possède pas de 
vraies minuscules. La touche ALPHA 
LOCK, si elle est relâchée, permet 
seulement d'obtenir des ‘petites ma- 
juscules”. Par contre, vous pouvez 
très bien programmer votre propre 
jeu de minuscules. Gérard Santraille, 
dans la rubrique ’trucs et astuces”, 
vous indique la marche à suivre pour 
parvenir à ce résultat. 


3 - Le prix d’un téléviseur noir et 
blanc augmenté de celui d’une inter- 
face SECAM ne doit pas tellement 
s'éloigner du prix d’un récepteur 
couleur de bas de gamme. J'utilise 
un poste couleur valant environ 
2500 FF, et qui me donne entière 
satisfaction. De plus, les 16 couleurs 
du TI constituent une de ses plus 
grandes qualités, et il semble que 
cela soit un atout majeur lorsque l’on 
veut intéresser les enfants. Mon rai- 
sonnement n'étant pas forcément va- 
lable (je ne suis pas enseignant), je 
pense que vous devriez en parler à 
d’autres professeurs. 


4 - Vous faites certainement allusion 
au TI-99/8, annoncé il y a quelques 
temps par Texas Instruments. Les lo- 
giciels et périphériques du TI-99/4A 
auraient dû être compatibles avec ce 
nouvel ordinateur. Malheureusement, 


il ne sortira certainement jamais puis- 
que Texas U.S. a décidé d’imterrom- 
pre la fabrication des ordinateurs fa- 
miliaux. Mais, sait-on jamais. 


La cassette 99B que j'ai reçu en sep- 
tembre a une erreur dans le pro- 
gramme CHARDEF car, à l'exécu- 
tion du programme, le TI-99/4A 
affiche FOR-NEXT ERROR. Je vou- 
drais savoir ce que je pourrais faire 
pour la supprimer. 


Jean-Claude Galé - 1, cité Foch, 
Boulevard Claude Debussy-65000 
Tarbes 

D'une manière générale, lorsqu'un 
programme provoque l'affichage de 
FOR-NEXT ERROR’” sans numéro 
de ligne, et que la commande 


"LIST” fait apparaître des symboles 
bizarres, il s’agit d’un programme 
écrit en Basic Etendu exécuté sans le 
module nécessaire. 


\A 


\ ty ll > 
ss IN “ A —Ÿ 
LR | Ni " 
ss SO S > Ame 
Ée EX, - 


G\f/ \Ù « ? 


SX 


LAC, NA Li 
“ | (Lhalll 

Une suggestion : le Basic Etendu 
étant un complément que beaucoup 
achètent après quelque temps, serait- 
il possible de proposer une rubrique 
permettant d'exploiter peu à peu 
toutes ses possibilités ? (Des petits 
programmes progressifs comme ceux 
de Monsieur Didi dans le N° 1 se- 
raient les bienvenus). Le manuel en- 
tièrement en anglais n’est pas très at- 
trayant ! 


Jean-Edouard Bisiaux - 8 Résidence 
Sainte Anne - Locon - 62400 Bé- 
thune 

Nous pensons commencer une série 
d'articles sur les particularités du 
Basic Etendu dès le prochain nu- 
méro, car il semble que le manuel 
pose des problèmes à de nombreux 
lecteurs. Nous sommes heureux de 
constater que les articles de Roger 
Didi vous plaisent. 


Dans la revue, les programmes en 
Basic Etendu devrait être indiqués 
très clairement. 


Jacques Lorig - 5 Avenue de Val- 
donne - 13013 Marseille 


Nous sommes entièrement d’accord 
avec vous. Dès ce numéro, les langa- 


ges sont clairement indiqués dans les 
articles d'accompagnement ainsi 
qu’en tête de chaque listing. 


La cassette N° 1 de ‘99 Magazine” 
ne fonctionne pas. Pour le pro- 
gramme  ‘’Alphabet”, j'obtiens le 
message d'erreur BAD SUBSCRIPT 
IN 730, et BAD VALUE IN 220 pour 
"Le dernier robot”! 


Chantal Ralaimihoatra - 13 rue de 
l'Epée de bois - 75005 Paris 


Vos problèmes proviennent certaine- 
ment du fait que vous essayez de 
faire tourner” ces programmes, 
écrits en Basic TI, en Basic Etendu. 

Un programme écrit en Basic TI ne 
fonctionne pas forcément en Basic 
Etendu pour les raisons suivantes : 


e le jeu de caractères du Basic 
Etendu est, contrairement à ce 
que l’on pourrait croire, moins 
étendu que celui du Basic TI 
(codes ASCII de 30 à 143 contre 
32 à 159 pour ce dernier) ; 


la mémoire utilisable en Basic 
Etendu est plus restreinte qu’en 
Basic TI (864 octets de moins), 
sauf si vous utiliser l'extension 
32:K ; 

un programme écrit en Basic TI 
peut comporter une variable avant 
un nom correspondant à un mot 
clé du Basic Etendu. 


Quand j'ai vu ‘99 Magazine” dans 
un kiosque, j'ai littéralement sauté 
sur la chose. Je l'ai dévorée en une 
journée (et un peu de nuit) et j'ai 
commencé dès le lendemain à copier 
les programmes listés dans le maga- 
zine. J'ai aimé la présentation et ces 
programmes sont amusants au possi- 
ble. En relisant l'éditorial pour une 
troisième fois, je me suis décidé à 
vous écrire. 


Une seule ombre au tableau: les 
programmes tels ‘Le dernier robot” 
et ‘’Harmonium” sont écrits tellement 
petits que je me suis trompé de ligne 
assez souvent. Mais, je comprends 
que, pour des raisons d'espace, il est 
impossible de les écrire plus gros. 
Donc, je ne vous en veux pas du 
tout. 


J'espère que cette lettre d’un lecteur 
outre-Atlantique vous à fait plaisir. 
Longue vie à ‘99 Magazine” et, 
comme on dit chez nous: ‘’lâchez 
pas, les gars !” (Mes excuses à Ca- 
therine et à Denise, nous n'avons 
pas encore féminisé cette expression. 


Stéphane Poudret - C.P. 386, Des- 
chaillons, Comté Lotbinière (Qué- 
bec), GOS 1GO - Canada 


Votre lettre nous fait effectivement 
plaisir, cher ’’cousin”, et ne vous in- 
quiétez pas, nous ne ‘’lâcherons 
pas”. 
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Nous vous proposons ci-dessous un 
erratum des deux premiers numéros 
de ”’99 Magazine”. Nous vous prions 
de bien vouloir excuser ces péchés 
de jeunesse ; notre rédaction a eu 
quelques difficultés initiales avec son 
rédacteur principal. Elle est mainte- 
nant réorganisée et nous pouvons 
vous assurer que la vérification des 
articles et programmes a été rendue 
beaucoup plus rigoureuse que par le 
passé. 


Numéro 1 de 


99 Magazine 

L'article Fichiers en BASIC du nu- 
méro 1 a été réalisé conjointement 
par Denise Amrouche et Simon 
Tchek. 


Numéro 2 de 
99 Magazine 


Page 7 : Micro-Monde LOGO - Le 
TI-99/4A n’est pas le seul ordinateur 
individuel capable de générer des 
lutins : le Commodore 64 offre une 
possibilité similaire. 

De plus, les lutins du Basic Etendu 
n’ont pas de forme prédéfinie, sinon 
la forme des caractères ASCII corres- 
pondant aux codes employés pour 
l'instruction CALL SPRITE. 


Page 18 : Jeu du Simon - Il faut évi- 
demment remplacer PRINT AT par 
DISPLAY AT. 


Page 41 : La sauvegarde des fichiers 
et programmes - Il est parfaitement 
possible de lire les annonces sonores 
après avoir écrit OLD CS1l” et 
même après avoir appuyé sur 
ENTER” puisque, lorsque l’ordina- 
teur affiche ‘’REWIND CASSETTE 
TAPE THEN PRESS ENTER”, le dé- 
flement de la bande est toujours 
possible. 


cien câble à deux dérivations. 


Page 52: Accélérez vos program- 
mes en Basic Etendu - Ce truc ne 
fonctionne pas (hélas!) pour plu- 
sieurs raisons : 


e l'instruction CALL LOAD ne peut 
fonctionner qu’avec une extension 
de mémoire ; 
elle ne peut pas être placée en 


tête de programme puisqu'elle 
doit être précédée par CALL INIT 


l'adresse —-31878 (837A en hexa- 
décimal) n’est pas l’adresse où se 
fait le guidage de tous les sprites 
mais l’adresse qui contient le nom- 
bre de lutins qui peuvent être en 
déplacement. Il est évident qu’une 
seule adresse (octet) ne peut pas 
contenir un système aussi 
complexe ; 

ce ’truc” ne sert à rien car cette 
adresse est automatiquement mise 
à jour par l’interpréteur (il suffit de 
faire un CALL PEEK à cette 
même adresse, lorsque l’on utilise 
des lutins, pour s'en rendre 
compte). 


Cassette A et B 


Le programme CHARDEF n'est pas 
en Basic simple comme annoncé à la 
page 4 de la revue, mais en Basic 
Etendu. En outre,le programme ”Di- 
vision” se trouve sur la cassette 99B 
et non sur la cassette 99A. 


Cassette C 


Programme DAMES : ce programme 
est écrit en Basic Etendu et non en 
Basic simple comme l'indique l’an- 
nonce sonore. 


Cassette 2 


Programme Canon de Purtell : 


Erratum 


n’est donc pas utilisable. Afin de ré- 
parer cette erreur, nous avons décidé 
de le réenregistrer sur la cassette 
d'accompagnement de ce numéro. 


Les lecteurs qui possèdent une unité 
de disquettes, et qui n'auraient pas 
l'intention d'acquérir la cassette 3, 
peuvent ’récupérer” ce programme 
en employant la méthode suivante : 


e charger le programme CANON 1 
en mémoire depuis la cassette ; 

® sauvegarder ce programme sur 
disquette avec DSK1.CANONI ; 

e charger le programme CANON 2 
en mémoire depuis la cassette ; 
sauvegarder ce programme sur 
disquette avec DSK1.CANON2, 
MERGE ; 
charger le programme CANON 3 
en mémoire depuis la cassette ; 
sauvegarder ce programme sur 
disquette avec DSK1.CANON3, 
MERGE ; 
charger le programme CANONI 
en mémoire avec OLD DSKI. 
CANONI ; 
charger le programme CANON2 
en mémoire avec MERGEDSKI. 
CANON? ; 
charger le programme CANON3 
en mémoire avec MERGEDSKI. 
CANON ; 
sauvegarder le programme ainsi 
reconstitué avec SAVE DSKI. 
CANON ; 
détruire les programmes 
CANONI1, CANONZ2 et CANON3 
(facultatif). 


Ceci n'intéresse que les lecteurs 
ayant reçu la cassette N° 2 avant le 
1* décembre : ces cassettes ont été 


La télécommande sur les deux unités — L’instruction MERGE n’est pas valide — modifiées et le programme Canon 
est possible sans problème avec l’an-— avec les cassettes. Le programme — de Purcell” est maintenant utilisable. 


Petites annonces (gratuites) 


Vends contrôleur de disquettes indé- 
pendant (ne nécessite pas le boîtier 
d'extension) - 1000 FF - S’adresser 
au journal qui transmettra. 


Le club Tigre 13 


Nous sommes heureux de vous ap- 
prendre la création d’un nouveau 
club d'informatique à Marseille. 


Ce club est principalement axé sur 

l'étude du TI-99/4A. Les buts pour- 

suivis sont les suivants : 

e formation des débutants 
tion) ; 

e réunions d'échanges (perfection- 


(initia- 
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Achète : Basic Etendu + cartouches 
de jeux-Ecrire à Monsieur Jacques 
Lorig - 5 Avenue de Valdonne - 
13013 Marseille. 


nement): Basic Etendu, Assem- 
bleur, élaboration de programmes 
en commun ; 

e libre service : échange de logiciels, 
d'idées, discussions. 


Informations pratiques : 

@e nous comptons actuellement envi- 
ron 60 adhérents ; 

® nous nous réunissons tous les 
mercredis et tous les samedis à 
l'U.AS. Rouet, Rue Benedetti, 
13008 Marseille ; 


Vends TI-99/4A (janvier 82) très bon 
état + ouvrages sur le TI-99 + 1 
poignée de jeu (suivant le plan de 
799 Magazine” N° 1). Le tout vendu 
D FF-TEL : 938-13-55 après 18h 


@e horaires du mercredi : 19 h 30 - 
21 h 30 (une semaine initiation, 
une semaine perfectionnement) ; 

e horaire du samedi: 14h -18h 
(libre service) ; 

e la cotisation annuelle est fixée à 
100 FF et nous demandons cinq 
enveloppes timbrées avec nom et 
adresse de l’adhérent. 


Pour de plus amples renseignements, 
joindre Monsieur Malagoli, trésorier, 
43 rue de la Loge, 13002 Marseille. 
Téléphone : (91) 91-40-10. 
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99 Magazine s'adresse... 


… aux débutants 


Vous venez d'acquérir un TI-99/4A. Tout est maintenant déballé et installé et vous êtes en train de découvrir 
qu’un ordinateur, ça ne marche pas tout seul... Il existe bien des brochures d'accompagnement, mais elles ne sont pas 
toujours rédigées de façon claire. En outre, le seul renseignement dont vous avez besoin en ce moment ne s’y trouve 
peut-être pas. 


799” vous apporte chaque trimestre de nombreux renseignements, des programmes complets, des exemples. 
Déjà, notre premier numéro comporte d'importants articles d'initiation au Basic ou de présentation de programmes. 


De plus, 99” édite avec chaque numéro une cassette regroupant tous les programmes du numéro. Vous 
pouvez ainsi utiliser des programmes que vous y avez vus, même si vous n'avez pas complètement compris le listing. 
En effet, vous savez bien utiliser des jeux ou des programmes de gestion de fichiers sans pour autant être capables de 
comprendre intégralement le listing de ces programmes. 

.… aux habitués 


Malgré l’apparition récente du TI-99 sur le marché européen, vous êtes déjà nombreux qui, habitués, maîtrisez 
bien l’un des Basics. Nous analysons pour vous et testons les nouveaux produits, logiciels et matériels. Nous vous 
donnons des idées pour résoudre des problèmes qui vous tracassaient depuis longtemps. 


En étudiant les nombreux programmes que nous vous proposons, vous pourrez perfectionner votre connais- 
sance du Basic simple et du Basic Etendu mais aussi, à partir des prochains numéros, vous initier au Pascal et à 
l’assembleur. Dans pratiquement chaque numéro de 99”, vous trouverez des recettes ou des programmes pour mieux 
programmer et utiliser votre TI-99. 
.. aux experts 


Vous êtes déjà quelques-uns à mériter le titre d'experts. Chacun d’entre vous connaît plus particulièrement un 
langage ou un domaine d’application. 99”, en publiant les écrits d’autres experts, peut vous en apprendre plus, que 
ce soit dans votre domaine de prédilection ou dans d’autres domaines. 


.… à tous ses lecteurs 


Quel que soit votre niveau, vous pouvez avoir des informations, des idées ou des programmes à transmettre 
aux autres. Faites nous les parvenir'afin que nous puissions faire partager ce savoir que vous avez acquis. L'idéal est de 
nous envoyer une cassette avec vos programmes et un article dactylographié. N'oubliez pas d'indiquer votre adresse et 


votre numéro de téléphone ! 


BULLETIN D’ABONNEMENT 


Je désire recevoir pour le N° []de 99 magazine 
[_ ] le numéro avec cassette 
[_] le numéro sans cassette 
[_] la cassette seule 


Je désire m'abonner pour 4 numéros 
à partir du N° [ ] 
[_] avec cassette SDF TIC 
[_] sans cassette 135 FETE 


Ces tarifs comprennent l’envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 
Envoi par avion : + 40 F pour un abonnement - + 10 F pour un numéro seul 


Envoyez ce bon de commande et votre règlement à : 


Editions MEV - 49 rue Lamartine - 78000 Versailles 
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LE 
TI-99/4A 


A L'AFFICHE 


PROBLÈMES ET SOLUTIONS 
EN BASIC. 


en Suisse : P.S.I. SUISSE 





Envoyer ce bon accompagné de votre réglement 
à P.S.I DIFFUSION 

B.P. 86 - 77409 Lagny-s/Marne Cedex - FRANCE 
Téléphone : (6) 006.44.35 


ou pour la Belgique et Luxembourg à : 

P.S.I. BENELUX 

5, Av. de la Ferme Rose - 1180 Bruxelles BELGIQUE 
Téléphone : (2) 345.08.50 


LA DÉCOUVERTE DU TI-99/4A 


par Frédéric Lévy et Dominique Schraen 


1-99/4A 





Une approche progressive et attrayante pour les débutants qui veulent apprendre la programmation en Basic 
du T1-99/4A. Ils commenceront par apprendre les instructions classiques du Basic telles qu'elles existent sur le 
TI-99/4A. Ils découvriront ensuite les possibilités graphiques et musicales de cet ordinateur grâce à de nom- 


breux exemples et exercices. 
Format 14,5 x 91 - 144 pages - 82,00 FF / 635,00 FB 


LE TI -99/4A A l'AFFICHE par Jean-François Sehan 


Cet ouvrage, qui s'adresse aux possesseurs de TI-99/4A, regroupe 90 programmes à caractère utile, familial ou 
ludique. Du papier peint à la cuisine en passant par le Baccara et la fête foraine, chaque programme est accom- 
pagné d'un organigramme, d'une liste de variables et d'une explication de chaque ligne Basic, pour l'adaptation 


éventuelle à d'autres ordinateurs. 
Format 17 x 95 - 144 pages - 82,00 FF / 635,00 FB 


EXERCICES POUR TI-99/4A 


par Frédéric Lévy 

Ce livre est destiné à tous ceux qui connaissent les instructions Basic 
du T1-99/4A et qui ne maîtrisent pas encore la programmation. Ce 
recueil d'exercices est une invitation à l'analyse et à la programma- 
tion de problèmes simples et fréquemment rencontrés (calculs, tris, 
traitement de texte...). L'énoncé de chaque exercice est suivi de son 
analyse, une où deux solutions commentées sont proposées. 
Format 14,5 x 91 - 144 pages - 82,00 FF / 635,00 FB 


JEUX, TRUCS ET COMPTES POUR 
TI -99/ 4A par Michel Benelfoul. 


Que programmer ? Comment ? Pour quoi faire ?... « Jeux, trucs et 
comptes pour TI-99/4A » propose aux novices de là programma- 
tion 30 programmes en TI-Basig comffientés et décrits à l’aide d’un 
exemple d'exécution.et d’üm' organigräfhme. Fonctions TI-Basic, jeux 
passifs et interactifs. interlüdes, « trucs », paie, facturation simples 
et routines, l'ensemble de ce recueil très varié leur permettra d'uti- 
liser au mieux toutes les fonctions de leur TI-99/4A. 

Format 17 x 95 - 176 pages - 892,00 FF / 635,00 FB. 
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Case Postale - Route Neuve 1 - 1701 Fribourg 


SUISSE - Téléphone : (037) 23.18.28 


au Canada : S.C.E. INC. 
65, Avenue Hillside - Montréal (Westmount) 
Québec H 3Z 1 W 1 - Tél. : (514) 935.13.14 
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LincroyableTT994A, 
un ordinateur pour 1200 francs* 


Avec l’Ordinateur Familial TI 99/4A 
de Texas Instruments, vous allez pouvoir 
dialoguer dans pratiquement tous les 
domaines : de la programmation aux 
jeux, de l'éducation à la gestion privée. 
Actuellement, il existe une centaine 
de programmes tout faits, constamment 
renouvelés. Pour son prix, le TI 99/4A 
est tout à fait remarquable : 
e Le langage Basic est intégré dans la 
console. 
e À votre gré, vous pouvez également 
utiliser de nombreux autres langages de 
programmation : 
— L'Extended Basic, permettant le 
contrôle de lutins (des graphiques 
animés se superposant à la surface de 
l'écran), et l’accès à des fonctions et 
instructions supplémentaires. 
— Le TI Logo 2, maintenant en français 
avec ses fameux lutins, offre, par rapport 
au TI Logo 1, plus de mémoire 
disponible et l’açcès au solfège. 


- L’Assembleur TMS 9900 qui permet 


d'exploiter au mieux le TI 99/4A. Avec 
le module “Mini Memory”, l'initiation à 
ce langage peut se faire simplement à 
l’aide de la version de base. 

— Le Pascal UCSD. 

Avec le TI 99/4A, vous pouvez 
toujours aller plus loin. Il possède un 
système d'extension périphérique très 
performant, qui peut contenir 7 périphé- 
riques différents. Ils ont tous leur 





Caractéristiques techniques 
CPU microprocesseur TMS 9900, 16 bits, 


(unité centrale) : plus 256 octets de mémoire de travail. 


Capacité 26K octets ROM interne; modules 
mémoire : d'application ROM externe jusqu'à 
36K octets chacun; 16K octets RAM 
interne extensible jusqu'à 52K octets. 
Clavier : clavier QWERTY à 48 touches, ver- 
rouillage alphabétique, répétition 
automatique et touches de fonctions. 
Générateur 5 octaves, 3 tons simultanés, géné- 
de son: rateur de bruit. 
Couleurs : 16 couleurs programmables pour le 
fondetles caractères haute définition. 
Interface : cassette, TV (péritel de série et 


SECAM en option), 2 manettes de 
jeux, bus de raccordement des péri- 
phériques. 











propre système opératoire. Leur adjonc- 
tion au T199/4A ne réduit pratiquement 
pas la mémoire utilisable. 

Les 7 périphériques : Extension 
mémoire 32 Ko - Interface RS 232 (série 
et parallèle) - Compilateur Code -P - 
Système de disquettes (90 Ko utiles par 
disquette, jusqu’à 3 unités de disquettes) 
- Magnétophone à cassettes - 
Synthétiseur de parole - Imprimante. 

En plus, vous pourrez profiter de la 
littérature spécialisée consacrée au 
T199/ 4A (livres et périodiques édités 
en français). 

Essayez-le, vous comprendrez 
pourquoi l’Ordinateur Familial 
T1 99/4A constitue le meilleur choix et 
s’est vendu à plus d’un million 
d'exemplaires dans le monde. 


TEXAS 
INSTRUMENTS 


